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IDENTIFICATION 
PRODUCT CODE: AC=T475A-MC 
PRODUCT NAME: CNTUUAO TUS8 PERF EXER 
PRODUCT DATE: DEC, 1982 
MAINTAINER: DIAGNOSTIC SERVICES/ 
INTERNAL SPECIAL SYSTEMS 

AUTHOR: R. J. ROSS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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DEC DECUS DECTAPE 


SEQ 1 


cn cn a 


o -Oo WMFWhOo 


WhM 3——332—4 


oF 
Oo 


6.0 


TABLE OF CONTENTS 


GENERAL rao ee Say 
PROGRAM ABSTRACT 
SYSTEM REQUIREMENTS 
RELATED DOCUMENTS AND STANDARDS 
es Hs HIERARCHY PREREQUISITES 
ASSUMPTIONS 
OPERATING INSTRUCTIONS 
HOW TO RUN THIS DIAGNOSTIC 
ERROR INFORMATION 
PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 


TEST SUMMARIES 


a eC - 


SEQ 2 
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2 


|200 15=DEC~82 12:54 PAGE 4 


| 


| 


1.0 


GENERAL INFORMATION 


THIS eyo ie. FROM 1 y 8 TUS8 CONTROLLER BOARDS, EACH 

OF WHICH MAY SUPPOR R 2 DRIVES. THE PROGRAM IMPLI pom NTS THE 

“MA AINTENAN NCE MODE Su IT tH WITHIN ALL PACKET COMMANDS, THUS RETRIEVING 
ata yy INFORMATION FROM THE DEVICE UPON CERTAIN DEVICE RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA-RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE, SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 


PROGRAM ABSTRACT 


IN ORDER TO EXERCISE MULTIPLE UNITS IN AN EFFICIENT MANNER, 

SCHEDULING ALGORITHM ete THEN SENDS THE NEXT COMMUNI CATION 

PACKET (COMMAND OR DATA) boy BY EXECUTING MACRO CODE WITHIN 

THE TEST ALGORITHMS. THE USE OF MACROS TO IMPLIMENT THE COMMUNICATIONS 
PROTOCOL SIMPLIFIES CONTEXT SWITCHING FROM UNIT TO UNIT BY NO 
REQUIRING 8 SEPARATE DEVICE STACKS IN ADDITION TO THE SYSTEM 


STACK. 
THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON ALL DRIVE 
THEN REPEAT THE TEST AFTER SWITCHING DRIVES, IF ANY DRIVE ‘‘1'S’’ VERE "Sévecten. 


FOLLOWING THE TRANSMISSION OF 1 PACKET TO EACH DEVICE (WITH XOFF 
Seipei ay Ba UNITS ARE ets AND THEIR ENTIRE RESPONSES 
EVALUATED ROUND ROBIN. IF ANY ERROR INITIATES A RETRY, THE SCHED- 
ULING PROCESS IS MODIFIED TO COMMUNICATE aw ONLY 1 UNIT UNTIL 
COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED, OR THE SYSTEM CONTINUES NORMALLY. 


THROUGHOUT THE PROGRAM, R5 POINTS TO ONE OF 8 POSSIBLE DATA 
STRUCTURES CONTAINING STATUS. TEST PARAMETERS, AND STATISTICAL 
INFORMATION FOR THE CURRENT UNIT. ‘‘START’’ CLEARS STATISTICS. 
“'RESTART’’ AND "‘CONTINUE’’ DO NOT. 

UPON OCCURANCE OF A_ FATAL ERROR, THAT UNIT IS DESCHEDULED 
settie ALLOWING THE REMAINING (IF ANY) TO PROCEED WITH 
ERROR DESCRIPTIONS: 


AN EXPLANATION OF THE EXTENDED ERROR INFORMATION FOLLOWS. SEE 
a IN THIS LISTING SUBTITLED ‘ERROR MESSAGE 


BLOCK #: THE RECORD NUMBER (1 PER 512. BYTES) 
IN LAST COMMAND PACK. 


COMMAND : THE MOST RECENT COMMAND PACKET OP CODE. 


a we a sn a a a 


SEQ 3 


ia) 
en 


——————_—_—_—___—_---—__-—-----——_——_—_---- -- 


CHECKED, OR 1ST BYTE OF RESPONSE. 
SINCE IN MAINTENANCE MODE TUS8 WILL SEND A BAD DATA PACK WITH A 


— 1 
i 
/200 15=DEC=82 12:54 PAGE 4-1 
| EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 
AND FOR DATA COMPARE AFTER READ OP. 
| SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (O FOR DATA; 
1 FOR COMMAND) 
| FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 


WILL, UPON CHECKING THOSE DATA PACK(S), DETERMINE ° * 
PACKET ERROR FIRST, THEN INTERPRET THE SUCCESS CODE TO DIFFERENTIATE 
A COMMUNICATIONS GLITCH (GOOD SUCCE ATA-CHECK® ERROR CODE. 


SS) VS. T 
THIS WOULD SEEM TO RESULT IN TWO ‘‘ERROR’’ hessaces FOR ONE ERROR 
CONDITION, BUT ONLY THE SECOND ERROR MESSAGE WILL CONTAIN PERTINENT 
(NOT ZERO) ERROR NUMBER. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE 


ou CPU WITH AT LEAST 16K WORDS OF MEMORY AND CONSOLE 


TUS8 CONTROLLER AND DRIVE(S). DL, DLV, OR PDT COMPATABLE INTER~ 
FACE; AND REVISION ‘‘I'* TUS8 MICROCODE (OR LATER) ASSUMED. 


1.2.2 SOF TWARE 


THE PROGRAM IS REVISION C DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP+ USERS MANUAL FOR OPERATING INSTRUCTIONS. 


1.3 RELATED - DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL CHQUS 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


ee INTERFACE DIAGNOSTICS MAY BE RUN TO ISOLATE INTERFACE 


1.5 ASSUMPTIONS 


SEG 4 


— 


poe 
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2.0 


2.1 


SYSTEM HARDWARE OTHER THAN TU58(S) IS OPERATIONAL. 


OPERATING INSTRUCTIONS 


HOW TO RUN THIS DIAGNOSTIC 


THE DIAGNOSTIC MAY BE_INVOLKED WITH A ‘START’ RESPONSE TO THE 
SUPERVISOR PROMPT. ‘STA‘(CR) IS SUFFICIENT. 

IF THE nae ie IS NOT AT THE STANDARD ADDRESS AND tee (176500, 
300), THEN ANSWER ‘‘CHANGE HW?’ WITH "YES" INITIALLY TO SET UP 
HARDWARE CONFIGURATION TABLES FOR EACH UNIT. THAT. INFORMATION 


TU58 CSR - a a OF RCSR OF DLV-11 OR OTHER INTERFACE 


VECTOR ADDR. - ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT (PARALLEL) INTERFACE == IS THE TUS8 IN A PDT 11/130, 
OR SYSTEM WHOSE ahd ~: anda 


RCDB (AND XMDB) 
XMSR 


TEST DRO - YES OR NO 
TEST DR1 ~ YES OR NO 
SUBSEQUENT RESPONSES TO “CHANGE HW?'* MAY THEN BE ‘‘NO’’. 
THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE PDT 11/130 
ARE 177170 AND 260 RESPECTIVELY. 
THE SOF TWARE QUESTIONS ARE AS FOLLOWS: 
NUMBER OF BLOCKS: TEST 4-7 == we: MAY oes 8 A MINIMUM OF 8, TO 
MAXIMUM OF 512 BLOCKS TO WRITE, 
READ; URITE. VERIFY; AND READ REDUCED, 
AS EXPLAINED IN SECTION 6.0. 
- FOR bs SAME READ AND WRITE TESTS 
DRIVE NUMBER (0 OR 1) M 


os AY 
BE A DDED TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION. 


~ SELECTS WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PASS OR “C. 
THESE STATISTICS MAY ALSO BE RE~ 
TRIEVED WiTH THE ‘'PRI'* COMMAND. 


COMPARE DATA ON READ ~~ SELECTS WHETHER OR NOT TC DOA 
DATA COMPARE ON DATA FACKETS RE- 


ADD DR # TO DATA PATTERN 


STATISTICS FRINTED AT EOP 


SEQ 5 


po 


6 1 


i 
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CEIVED. 


PRINT PACKET ON ERROR =~ PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR, IF SELECTED. 


| 

| 

| # ERRORS=DVC FATAL IF "EVL" SET == IF USER SETS EVL FLAG (EVALUATE) 

| MODE), HRD OR SFT ERROR MESSAGES 
BECOME DVC FTL ERRORS AFTER THE 

| NUMBER SPECIFIED IS EXCEEDED. 


3.0 ERROR INFORMATION 


ERROR INFORMATION IS PROVIDED ON OCCURRANCE OF ERRORS AS OUTLINED IN 
SECTION 1.1. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


STATISTICS ARE AVAILABLE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 
UPON ENTERING A “'PRI'’ COMMAND. THEY CONSIST OF # BLOCKS WRITTEN AND READ, # OF 
DATA ERRORS, HARD OR SOFT. 


5.0 DEVICE INFORMATION TABLES 


CONSULT SECTION SUBTITLED ‘DATA BLOCK FORMAT’ FURTHER ON IN THIS LISTING. 


6.0 TEST SUMMARIES 


INIT: INIT IS SENT TO DEVICE IF: 
- 1. INIT CODE IN SUPERVISOR IS EXECUTED 
2. INIT IS REQUESTED BY DEVICE AS A RESULT OF 
ERROR. 
TEST 1: INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TEST) 
TEST 2: SEEK TEST. SEEKS BOT ON BOTH TRACKS, THEN 


VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS,ENDING THEN AT BOT. 


TEST 3: PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. 

TESTS 4-7: = - WRITES BLOCK # AS DATA INTO SYCSESS IVE net 
QUESTION #1: DEFAULT IS SHORT TAPE (8. 


SEMIN IMUM 
(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER TRACK) 512. BYTE 
BLOCKS OF DATA PER READ (OR WRITE) OPERATION. THE 


a ee ee eee te ee 


SEQ 6 
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ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 
BLOCKS SELECTED. DRIVE NUMBER Hh ADDED TO RECORD 
AS DEFAULT,SO FOR TAPE INTER CHANGE 

TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION #2. 


NOTE: THE AMOUNT OF TIME SPENT IN 7 he 4-7 IS QUITE 


LONG IF THE FULL TAPE (512.) SELECTED. 
TEST 4: WRITE TAPE 
TEST 5: READ TAPE 
TEST 6: "WRITE VERIFY* TAPE 
TEST 7: READ MODIFIED THRESHOLD TAPE 


7.0 REVISION: CZTUUB.MAC WAS EDITED BY SING LAKSHMANAN 
TO INCLUDE DEFAULT ADDRESS AND VECTOR IN HARDWARE 
P=TABLE AND PRIO6 INSTEAD OF PRIO? IN SETVES MACROS 
ee es NAME I.E. CNTUUAO . CHANGES MARKED AS 


mm nn a ie 


SEG 7 


— 
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og 
374 


4 

406 002000 
407 

412 

413 002000 
414 


422 
os? 002000 
425 002122 


002000 


-TITLE PROGRAM HEADER AND TABLES 
BTTL PROGRAM HEADER 


.ENABL ABS, AMA 
"NLIST BEX 
BGNMOD 


2000 


p++ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT,BGNSW,BGNSF T ,BGNAU,BGNDU,BGNSETUP 


HEADER CNTUU,A,0,3600.,1 
DESCRIP <TU58 PERF EXER> 


SEQ 8 


——_--——__-------- 


| 
: 
i 


J1 


SEG 9 
PROGRAM HEADER AND TABLES MACRO M1200 15=DEC=82 12:54 PAGE 7 
PROGRAM HEADER 
428 
429 ‘THE PROTECT TABLE IS USED BY THE MONITOR TO WARN THE OPERATOR WHEN HE 
re : TRIES TO TES: THE LOAD DEVICE. 
432 
433 Oo es BGNPROT 
434 002142 000000 WORD 0 sDEVICE CSR 
435 002144 177777 «WORD =1 ing MASS BUS 
436 002146 177777 «WORD =1 O DRIVE 


239 002150 ENDPROT 
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, PROGRAM HEADER 


4 
453 002150 
454 


as 


kK 1 
SEQ 10 


an 


eSBTTL DISPATCH TABLE 


5 +o 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 7 


a = eee ee i en a ee ere rs te | on es 5 a ae = rn een ee 


elena rr ene ert incnt OareN 
; SEQ 11 
lp PROGRAM HEADER AND TABLES MACRO M1200 15=DEC-82 12:54 PAGE 11 
[DEFAULT HARDWARE P=TABLE 
| “63 .SBTTL DEFAULT HARDWARE P=TABLE 
465 + 
| + 466 ; THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
| 467 : THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
468 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
469 ; DEFAULT CSR ADDRESS AND VECTOR WERE CHANGED IN VER:1 
471 : 
472 002170 BGNHW DFPTBL 
474 002172 176540 .WORD 176540 :CSR_ADDRESS;SBC 11/21 SPECIFIC 
475 002174 000120 “WORD 120 ;VECTOR ADDR. ;SBC 11/21 SPECIFIC 
476 002176 000003 “WORD 3 ;TEST DRIVE ZERO AND ONE 
477 002200 900000 “WORD 0 iNOT PDT TYPE INTERFACE 


484 
485 002202 ENDHW 





ene ee re re ne ee eer RS ne nr nn = ee ene a 2 ee + = _-- 


— 


amt 


nn i te et cr = msscineasennan 


SEG 12 
|PROGRAM HEADER AND TABLES MACRO M1200 15=DEC=82 12:54 PAGE 13 ; 
a P=TABLE % 

488 «SBTTL SOFTWARE P=TABLE 

489 

490 ptt 

491 ; THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
438 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

435 002202 BGNSW SFPTBL 

497 002204 000010 LENGTH: .WORD 8. 3 TAPE LENGTH 

498 002206 000001 STAEOP: .WORD 1 sPRINT STATISTICS AT EOP 
499 002210 000001 PRBUF: .WORD 1 PRINT DATA BUF ON COMP. ERROR 
500 002212 000001 CMPDAT: .W 1 ; COMPARE DATA 

501 002214 000001 DRVCHK: .WORD 1 D DR # TO DATA 

a4 002216 000001 EVLTHR: .WORD 1 THRESHOLD FOR EVL TEST 
510 

213 002220 ENDSW 

513 002220 ENDMOD 


ny 


ana 


an + 


GLOBAL AREAS 


MACRO M1200 15=DEC=82 12:54 PAGE 14 


SOFTWARE P=-TABLE 


572 
573 002220 


100000 


000001 
001000 


000002 
000001 


000040 


000034 


000340 


-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


Tad 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EQUALS 
DIF INITIONS 
100000 
40000 


: BI 


WDoOwwwwowww::-> 
te bt be a at a be bt 


ooo 


nmnovrnnnnnnnnnnann 
hrnrnnnnnnnannnnnnn 
r 


bt bas Be bh De a ee ta bt be me be 
44444444494 HSH st st st st st st ts 


rnnnnnnnnn 
@ 
ee 
~ 
Cc 
uw 


zae 
“4 


ed 32 
“RESTART== 31 
yh tt 30. 
29. 
28 


eee. MmMmMmmes.222-2e2s OMWOOOwoawoa:: 
nm a mt 7 
. 


; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 


IONS 
VED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


BIT POSITION IN SECOND STATUS WORD 
00000) START COMMAND WAS ISSUED 


SEQ 13 





SEQ 14 


GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 14-1 
GLOBAL EQUATES SECTION 


PR1I06== 300 
PRIO5== 240 
PR1I04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PR1I00== 0 
OPERATOR FLAG BITS 
EVL== 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
== 200 
BOE== 400 
PNT== 1000 
PRI == 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


GLOBAL AREAS 


ERROR CODE EQUAT 


612 


AAAAAGCOO 
AJ HS 
OOONAULSW 


621 
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ES 


SEQ 15 


-SBTTL ERROR CODE EQUATES 
: THE _ COLE OFFSET VALUES : 


sUSED B 
2 SFTRD 
000004 FTWR 
00006 RCINIT 
000012 OVRN 
0014 BDCOM 
000016 HRDRD 
000020 HRDWR 
22 BDCHK 
000024 SKERR 
00026 WRLOCK 
000030 OMOT 
000032 CNINIT 
000034 ARTL 
000036 NOUNIT 
000040 CMNDE 
042 RECERR 
4 SLFE 
000046 SUCOTL 
0050 TORCVB 
000052 OTL 
000054 NCART 
000056 TOSNDB 


oe 


— 
So 
oS 
© 


101. 
102. 


MMMM 2 SM SAE 


ROUTINE ‘LOG’ TO INDEX (BY R5) INTO DEVICE'S DATA BLOCK AND 
‘INCREMENT STATISTICS. 


IN ADDITION, SYSTEM SETUP OR RUNTIME ERRORS ARE: 


ALL UNITS ABORTED 
MORE THAN 8. UNITS (16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 


ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 


——s 


“nn 


GLOBAL 


AREAS 
GENERAL EQUATES 
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000002 


000016 
000012 
000204 
000222 
000016 
001036 


000100 


00 
000007 


177720 


177757 


SEQ 16 
-SBTTL GENERAL EQUATES 
:RADIAL SERIAL CODES: 
THE FLAG BYTE CODES ARE: i > 
RSCMND == 2 ' PACKET 

RSCONT == 50 ;CONTINUE’’ SINGLE BYTE 

RSXON == 20 i MONT SINGLE BYTE 

RSXOFF == 23 Fi; SINGLE BYTE 

RSINIT == 4 scINIT ; SINGLE BYTE 

RSDATA == 1 :DAT ET 

RSEND == RSCMND END PACKET FLAG 1S ‘COMMAND’! 


;END PACK SIZE: 
RSNDS 14. TOTAL BYTES IN COMMAND PACKET 
sMESSAGE PACK SIZE: 


12 310. BYTES FOR BYTE COUNT INSIDE CMND PACK 
zDATA PACK SIZE: 
RSDASZ == 132. :TOTAL BYTES IN DATA PACKET 


sDATA + END PACK SIZE: 
RSDNSZ == RSDASZ+RSNDSZ 


RSSNSZ == RSMSIZ + 4 sSIZE_FOR SENDING COMMAND PACK 

RCBFSZ== 4*RSDASZ+RSNDSZ 74 DATA PAKS AND END PACK 
31S SIZE OF RCV BUFFERS 

: THE OP CODES ARE 
RSSEND == 100 END PACK DESCRIPTOR 
RSSWR == 3 2 WRITE 
SSRD == 2 3 

RSSSEK == 5 3: SEEK 

RSSNOP == 0 :NO-OPERATION 

RSSNIT == 1 z INITIALIZE 

RSSSLF == 7 sSELF TEST 


STHE SUCCESS CODES ARE: 


SABO. ==-48. BAD COMMAND FROM HOST 
ESNCRT ==-9. NO CARTRIDGE 
ESNONX ==-8. NO DRIVE 
SOK ==0 :0P tg hy SUCCESS 
ESPART ==-2 PARTIAL 
SSK ==-32. ; SEEK BRROR 
ESTRY ==1 ;RETRYS OCCURRED 
ESWLOC ==-11. sWRITE PROTECTED 
ESNOMO ==-33. sMOTOR STOPPED 
ESCMD ==-48, ;COMMAND ERROR 
ESREC ==-55. iBA D RECORD NUMBER. 
ESCKS ==-17, TU CHKSUM ERROR 
SSLF  ===1, ;SELF TEST ERROR 
ESCKSM=ESCKS 
ESWR=ESCKS 
ESRD=ESCKS 


nn a ne eee 


SEG 17 
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ERROR MESSAGE DESCRIPTIONS 


| 
| 
$88 ~SBTTL ERROR MESSAGE DESCRIPTIONS 
688 ;THE TABLE OF ERROR MESSAGES (ADDRESSES). ABNDX(R5) Safes THE OFFSET 
red OF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB + ABNDX(RS). 
691 002220 002314 RSNTAB: MSNLOG 
692 002222 003046 MSSFRD 
693 002224 003106 MSSFWR 
694 002226 002530 MSRNIT 
695 002230 002314 MSNLOG 
232 003252 MSOVRN 
697 002234 002376 
698 002236 003146 MSHDRD 
699 002240 0032 MSHDWR 
00 002242 002550 MSHCHK 
701 002244 002 MSSKER 
702 002246 002506 MSWPRO 
703 002250 002440 MSNOMO 
002612 
705 002254 002626 MSPART 
002650 MSUNIT 
707 002260 002676 MSCMD 
708 002262 002712 MSREC 
709 002356 MSSELF 
710 002266 002732 MSWRSP 
711 002270 002756 MSNRSP 
712 002272 002772 MSQRSP 
713 002274 002456 MSNOTP 
714 002276 0035024 MSTOSN 
{ 


——— 


‘GLOBAL AREAS 


717 
718 

a9 002300 
21 602314 
723 002332 
725 002356 
727 002376 
728 

729 002440 
31 002456 
733 002506 
734 

£35 002530 
737 002550 
739 002612 
ra 002626 
743 002650 
744 

745 002676 
247 002712 
749 002732 
750 

751 002756 
753 002772 
754 

755 003024 
756 

757 003046 
759 003106 
761 003146 
762 

763 003210 
765 003252 
766 


| 
| 


123 
123 
102 
123 
102 
115 
103 
127 
122 
110 
103 
120 
042 
102 
102 
127 
116 
111 
124 
122 
122 
125 
125 
104 


105 
131 
101 
105 
101 
117 
101 
122 
105 
117 
101 
191 
116 
101 
101 
122 
117 
116 
111 
105 
105 
116 
116 
114 
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'ERROR MESSAGE DESCRIPTIONS 


;HERE ARE THE MESSAGES PROPER: 
105 MSSKER:: .ASCiZ /SEEK ERROR/ 
123 NSNLOG: ":ASCIZ /SYSTEM ERROR/ 
104 MSBDA:: “ASCIZ /BAD DATA IN PACKET/ 
114 MSSELF:: .ASCIZ /SELF TEST ERROR/ 


104 MSCOM:: .ASCIZ /BAD DATA W=-0 DATA CHECK ERR AT mid 
N ERROR NO 


-EVE 
124 MSNOMO:: .ASCIZ /MOTOR STOPPED/ 


HAVE READ 


DEVICE COULD NOT READ HEADER 
DIAGNOSTIC HUNG. BETTER RE-BOOT 
HOST DATA 5 ote Am ERROR, DEVICE MAY 


SEQ 18 


imi Cho DIAGNOSTIC FAILED, BUT DEVICE COULD STILL 


END AN EN 


:PREVIOUS DATA CHECK 
T DUE TO DEVICE READ OPERATION 
:DEVICE "COULD NOT GET ANY MEANINGFUL SIGNAL 


° APE. 
122 MSNOTP:: .ASCIZ /CARTRIDGE NOT IN PLACE/* 3NO MEDIA OR BAD SWITCH 


EVEN 
111 MSWPRO:: sASCIZ /WRITE PROTECTION/ 
103 MSRNIT:: .ASCIZ /RECIEVING INIT/ 


-EVEN 
123 MSHCHK:: .ASCIZ /HOST FOUND PACKET CHECKSUM ERROR/ 
N BAD CHECKS 


116 MSNIT:: ZASCIZ /CAN'T INIT/ 

122 MSPART:: .ASCIZ /PARTIAL OPERATION/ 
117 MSUNIT::” 2ASCIZ /"'NON-EXISTENT’’ DRIVE/ 
104 MSCMD:: .ASCIZ /BAD COMMAND/ 

104 MSREC:: :ASCIZ /BAD RECORD NO./ 

117 MSURSP::"-ASCIZ /WRONG SUCCESS CODE/ 
040 MSNRSP:: sASCIZ /NO RESPONSE / 


eEVEN 
104 MSQRSP:: .ASCIZ \INDECIPHERABLE FLAG wie* 


eEVEN 
115 MSTOSN:: .ASCIZ /TIME OUT ON SEND/ 


103 MSSFRD::"-ASCIZ /RECOV. DATA CHECK ERR ON RD OP) i 
103 MSSFUR:: -ASCIZ /RECOV. DATA CHECK ERR ON WR OP/ 

122 MSHDRD:: -ASCIZ /UNRECOV. DATA CHECK ERR OND OP OP/ 
122 MSHDWR::"<ASCIZ /UNRECOV. DATA CHECK ERR'ON UR OP/ 


-EVEN 
126 MSOVRN:: te Fa /DLV ERROR IN RECEIVE/ 


bbe 5 WRITE PROTECT TAB MISSING OR 


DEVICE SENT INIT 


REQUEST 


‘ sDEVICE SENT PACK WITH 
:DEVICE SENT BYTE OTHER THAN “‘CONTINUE’ 


;DURING INITIALIZATION 
END OF MEDIUM ENCOUNTERED 


T 


READ OP. 


OP. 


;DEVICE RECV'D TOO LARGE DRIVE NUMBER 

:DEVICE COULD NOT UNDERSTAND HOST 

;DEVICE RECV'D TOO LARGE A RECORD NUMBER 

;HOST COULD NOT DECIPHER CODE IN END PACK 

;TIME OUT WAITING FOR BYTE IN RCV BUF ON INTERFACE. 
;HOST COULD NOT UNDERSTAND 1ST BYTE OF 

PONSE FROM TU AS PROPER PROTOCOL 

[DLV "READY’ NEVER WENT HIGH 
51058 RESPONDED WITH “DATA=CHECK" 

READ sHOST RETRY(S) SUCCESSFUL 

:SAME BUT WR OR WR VERIFY OPERATION 
sTUS8 RESPONDED WITH "DATA-CHECK"’ 

RETRIES UNSUCCESSFUL 

sSAME BUT WR OPERATION 


zDLV ERROR (THE CONTENTS PRINTED OUT) 


am 


-—-—— 


: 





GLOBAL 
MISC STORAGE AND EQUATES 


AREAS 


ore 003300 


781 OO ee 


793 003332 


003334 


8 
801 003336 
802 
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000000 


000000 


177777 
000226 


-SBTTL MISC STORAGE AND EQUATES 
SYSTAT:: .WORD 
TAPLEN:: .WORD 
DEVPTR:: .WORD 
RCFLG:: .WORD 
RCBCNT: .WORD 
FTLNM eWORD 4 
DONE: : WORD 
IDPTR: WORD 
TSTTOP: .WORD 
MXRTRY:: .WORD 8. 
LKER: WORD 
SECREC:: .WORD 
PRNSIZ:: .WORD 
ALLGON:: .WORD 


TIME OUT CONSTAN 
CSNRDY:: =1 
CSRCVB:: 150. 


STEM STATUS WORD 


'BIT7=BIT15 = 1ST BYTE CF PACK RCVD 
3B1T05 = NOT USED 
3B1T04 = NOT USED 
:B1T03 = NOT USED 
sB1T02 = NOT USED 
3B1T01 = RETRY OCCURRING 
sBITO0O = CHKSUM IS ODD (TEMP STORAGE) 
3# RECORDS 
3>>NEXT_UNIT_ ADDRESS 
TEMP STORE YTE 
st P STORAGE FO YTE 
R_ OF S BEFORE ABORT 


3 NUMBE E 

31_IF TEST ALGORITHM COMPLETE 

;PTR IN TESTID MACRO 

;POINTER TO CURRENT TEST : 

ZWUMBER OF RETRIES, BEFORE ‘HARD’ ERROR 

RECORD # FOR ERROR REPO 

RECOR D # TO START, Ald ol SWITCHING TRACKS 
SIZE OF PACK FOR **PRNP 

£ SECONDARY DON'T PRINT STATISTICS FLAG. 


TS: 


TIME OUT ON SEND DELAY (DLV_NOT READY) 
745 SEC. MULTIPLIER REWIND TIME 
[CAN BE OPTIMISED PER CPU 


SEG 19 


coo 
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|DATA BLOCK FORMAT 


810 


0 00 Co Co Co C0 00 00 Co 
—b 3s —) —) —) 2 3) 2 > 
WOONOULSWR— 


820 

821 

822 

823 000000 

824 000002 

825 000004 

826 

827 

828 

829 

830 

831 000020 

832 000022 

833 000024 
000026 

835 000030 

836 000032 

837 000034 

838 000036 

839 

840 

841 000060 

842 000062 

843 000064 

844 

845 000066 

846 000070 

847 000072 

84 000074 
000076 

850 000100 

851 

852 000102 

853 000104 

854 000106 

855 000110 

856 000112 

857 000114 

858 000116 


- SBTTL DATA BLOCK FORMAT 


SEG 20 


3R5_==> TOP OF 1 OF THE 8 DATA BLOCKS (1 PER UNIT) DURING EXECUTION 
@R5 1S THE STATUS WORD CONTAINING: 


STATUS 
RETRY 


SUCCS 
CMDSNT 
RCVBUF 


nnnnnnne 

nnhnnnwn 

SOOO f£Vvowon 
e*eeeesees# 


x 
= 


VIM ECo  WRORoTNnN-— 


Moco 


nuu@ 
nnourm 


:BIT15 = ABORTED 

iBIT14 = SEND "BREAK 

:BIT13 = HALTED 

:BIT12 = TEMP STOR WRITE MACRO 

:BIT11 = UNIT NOT BEING TESTED 

:BIT10 = RETRVING 

:BIT9 = TU5S8 CHKSUM ERROR 

:BIT8 = RD/WR OPERATION 

:BIT7 = NORMAL /REDUCED THRESHOLD (MACROS) 
3BITG = HOST DATA COMPARE ERROR 

SBITS = UR VERIFY OPERATI 

{BIT4 = TYPE OF PAK SENT ODATA 1CMD 
:B1T3 = NOT USED 

BITO,1,2=UNIT NO. 

:DEVICE STATE 

iH OF RETRIES 

ZERROR NUMBER FOR LOG 

i STORAGE FOR REGISTERS USED IN TEST BODY 
; STORED WAPOW 


WITH SWAPOW 
;RETRIEVED WITH SWAPIN 


SPOINTER TO NEXT EXECUTABLE TEST INST. 
; S_ADDRESS 


gt ACK Ey 
TFOR MULTIPLE PACKET RECIEVES (MAX.4) 
; CONSECUTIVE XSFLGS AND XSCNTS 
:DR==0 OR 1; BIT8,9 DRIVE SELECTED BY OPERATOR 
: COUNTER FOR TRACK NUMBER 
sRECORD (BLOCK #) 


zTEST MACRO REGISTER 
;THE # OF BYTES FOR SENDING PACKET 
DATA PATTERN-LOWER BYTE USED 
:CONTENTS OF RCDB ON DLV oor 
: SUCCESS CODE OF LAST END PACKET 
YPE OF COMMAND CURRENT IN’ EVEN BYTE; BIT15==VERIFY OP. 


POINTER TO 542. BYTE BUFFER (4 DATA PAKS + END PACK) 
POINTER TO TOP OF PACKET 
:POINTER TO g. BYTE B USED XSFLG OR XSCNT 


: OF 512. BYTE BLOCKS WRITTEN DRO 
: * OF 512. BYTE BLOCKS WRITTEN DR1 
: # OF 512. BYTE BLOCKS READ DRO 
: # OF 512. BYTE BLOCKS READ DR1 


SEQ 21 
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— BLOCK FORMAT 


861 ;AND THE ERROR LOG.. teoccocoece=t+ 

862 sSPLIT INTO A BYTE PER DRIVE: ' DR1 ! DRO ! 
863 § ¢ ewer sceonese $ 

| 
6 8 em ee ta A a me en ome me ee a Ge GeO aD a me Be Se er me Oe oe Oe ee Om > ee Oe ee ee te ee ee me 

| £66 sOFFSET IN DATA BLOCK sERROR TYPE sERRCODE;MSG CODE;SUC. CODE 
868 , 
869 000120 LGOFST == 80. cota 
870 000122 SOFTR == 82. SOFT READ sSFTRD ;MSSFRD ;ESCKSM 
871 000124 SOFTW == 84. SOFT WRITE sSFTWR ;MSSFWR ;ESSKSM 
872 $ WORD ‘RECIEVED INIT ;RCINIT ;MSRNIT ;*ee008 

| 873 ; WORD + ##RESERVED*® 

| 16] s THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 
877 000132 T4TRY == 90. ;DLV ERROR sOVRN ;MSOVRN ; e008 
878 000134 BDATA == 92. 3BAD DATA BDC ‘MSDATA : seenene 
879 000136 HARDR == 94. sHARD READ sHRDRD ;MSHDRD SESCKSM 
880 000140 HARDW so == 96. sHARD WRITE sHRDOWR ;MSHDWR SESCKSM 
881 $ WORD 3 CHKSM AT HOST ;BDCHK ;MSHCHK feeeees 
882 : WORD + SEEK ERROR TOTAL; SKERR sMSSKER ;%eee0% 
883 000146 TITRY == 102. 3WRI TE PROTECT ;WRLOCK sMSWPRO ;ESWLOC 
884 s WORD TOR $ T ;MSNOMO ;ESNOMO 
885 : WORD ICANT INIT sCNINIT ;MSNIT ; 2200 
886 ; WORD :PARTIAL oP sPARTL  ;MSPART ;ESPART 
887 5 WORD IT 3 IT ;MSUNIT ;ESNONX 
888 3 WORD * COMMAND ERROR ;CMNDER ;MSCMD ;ESCMD 
889 g WORD ‘BAD RECORD NO.;RECERR ;:MSREC ;ESREC 
890 : WORD SELF TEST ERROR;SLFER ;MSSELF ;**ee0% 
891 5 WORD sWRONG SUC.CODE ;SUCOTL ;MSWRSP ;**2e0% 
892 : WORD :NO RESPONSE sTORCVB ;:MSNRSP ;eeee0% 
893 : WORD sWEIRD FLAG : OTL ;ZMSORSP seeeeee 
894 3 WORD 3NO CARTRIDGE ;NOCART ;MSNOTP ;ESNCRT 
144 ; WORD sTIME OUT SEND; TOSNDB *MSTOSN peeenee 
897 
898 000202 BLKEND == 130. s OFFSET OF END OF STATISTICS (RESERVED) 
899 Fy WORD RESERVED * 
900 000204 TUVECT == 132. {VECTOR ADDRESS 
90 . WORD ee RESERVED ** 


902 000210 BLKSIZ == 136. t#* RESERVED ** 


SEQ 22 
L AREAS MACRO M1200 15=DEC=82 12:54 PAGE 30 
vice DATA BLOCK ALLOCATION 

306 -SBTTL DEVICE DATA BLOCK ALLOCATION 
908 
ouP ;TABLE OF DEVICE DATA BLOCK ADDRESSES 
911 
912 003340 003360 BLKTBL:: -WORD DEVO 
913 003342 003570 WORD DEVI 
914 003344 004000 -WORD DEV2 
915 003346 004210 -WORD DEVS 
916 003350 004420 WORD DEV4 
917 003352 004630 WORD DEVS 
918 003354 005040 WORD DEV6 
235 003356 005250 LSTDEV:: «WORD DEV? 
921 
956 zAND STORAGE FOR EACH: 
924 003360 DEVO: -BLKB = BLKSIZ 
925 003570 DEV1: -BLKB- BLKSIZ 
926 004000 DEV2 -BLKB LKSIZ 

10 DEVS ° BLKSIZ 
928 004420 DEV4 ° BLKSIZ 
929 004630 DEVS -BLKB = BLKSIZ 
930 005040 DEV6: -BLKB =BLKSIZ 
931 005250 DEV?7: -BLKB = BLKSIZ 


iia 


—_—— 


GLOBAL TEXT SECTION 
947 
8 
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-SBTTL GLOBAL TEXT SECTION 


; NAMES OF DEVICES SUPPORTED BY PROGRAM 


DEVTYP <TUS8 CONTROLLER> 


SEQ 23 


REE TI ae ee a ee ee J 


SEQ 24 


| GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 34 
SYSTEM MACRO DEFINITIONS 


3 -SBTTL SYSTEM MACRO DEFINITIONS 

998 

1002 

1003 p++ 

1004 sTHE MACRO ‘SWAPIN' RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 
1005 3IN THE DEVICE DATA BLOCK. 

1006 ;-- 

1007 

1015 

1016 p++ 

1017 sTHE MACRO ‘SWAPOW' SAVES THE CURRENT STATE OF THE UNIT IN THE DRIVE 
Hy :DATA BLOCK IN SO THAT THE SCHEDULER MAY ‘SWAPIN' ANOTHER UNIT. 
1020 . 


eenicanaatentapanin tee neni enennaan aeramamaccanmneramanna cer inmmeens meer ceanian 


SEG 25 
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SYSTEM MACRO DEFINITIONS 


1030 

1031 S THE WRITE MACRO IMPLEMENTS THE COMPLETE PROTOCOL NECESSARY TO BUILD 
1032 COMMAND PACKET AND SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 
er 3 (BCNT) IS SATISFIED). 

1035 SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
1036 : OXSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
1037 :"RSVP* TO SEND EACH PACKET, AND ‘CHKSUM' TO CALC. THE PACKET 

See 7 CHECKSUM. 

1040 ; INPUTS = io BLOCK K ars 

1041 3 TRBUF = BUFFER ADDRESS 

1042 3 UNIT'S TEST REGISTERS FROM "SWAPIN‘' 

1043 : OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 

1044 3 XSPKNM = # OF PACKETS EXPECTED 

1045 : XSFLG = FLAG BYTE OF 1ST PACKET 

ee 3 MSCNT = = Srie COUNT OF 1ST PACKET 

1048 3 - * SUBSEQUENT XSFLGS 

1049 : - > 

1050 : - * AND XSCNTS 

1051 : . wee 

1053 
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| SEQ 26 
| YSTEM MACRO DEFINITIONS 


“oO 


= 
- 
Nm 


HT SEE MACRO IMPLIMENTS THE COMPLETE PROTOCOL TO INITIATE A SEEK 


SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
: (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
deRSVP eto SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 


INPUTS = DEVICE BLOCK aR5 
UNITS TEST REGISTERS FROM SWAPIN 
TREUF - BUFFER ADDRESS 


OUTPUTS = 

XSPKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 


xktk 


-  * SUBSEQUENT XSFLGS 
; ~*~ AND XSCNTS 
. ke 


ee ca ee cae ae ca ceo cee a ad ee ed ed ce ed ceed ed ad ed ed a 
ee ec ae ed ca cae ce cae ce cae ce ed ce ae ed ce ed ceed oe ed eae 
SRE RER EE BWANApooronfv 
COND VUSWN OO DONAUESWN =O OONAUSE 


—————— A LL SV: sA-sten t —ipsu Settee ana a hehe tt 
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SYSTEM MACRO DEFINITIONS 


1177 

1178 ‘THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
be 3A RETRY (REAL OPERATION) SEQUENCE. 

1181 SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
1182 + OXSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
1183 ;"RSVP* TO SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 

BS +: CHECKSUM. 

1186 3; INPUTS = Ay BLOCK aR5 

1187 $ TRBUF = BUFFER ADDRESS 

By = 4 : UNITS TEST REGISTERS FROM SWAPIN 

1190 3; OUTPUTS - pete | = # OF BYTES TO SEND 

1191 : XSPKNM = # OF PACKETS EXPECTED 

1192 3 XSFLG = FLAG BYTE OF 1ST PACKET 

1193 3 XSCNT = BYTE COUNT OF 1ST PACKET 

1194 : kok 

1195 3 - * SUBSEQUENT XSFLGS 

1196 3 ° > 

1197 3 - * AND XSCNTS 

1198 $ . tet 

1199 :-- 

1200 


bs Fey 


———_——— 


| 
GLOBAL 


MN 
, ate 


kk kd dtd ot a 
oa 


MMM NNMPNoenononoenefroronory 


Oo 
&* 


AREAS 


SEG 28 


MACRO M1200 15=DEC-82 12:54 PAGE 42 
SYSTEM MACRO DEFINITIONS 


-_ 


p++ 
:THE READ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
3A READ SEQUENCE. 


SETS _ THE et ite: PROTOCOL RESPONSES: THE NUMBER OF PACKETS 


2 (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 

RSVP TO SEND EACH PACKET, AND "CHKSUM’ TO CALC. THE PACKET 
CHECKSUM. 

INPUTS = fae BLOCK A 


~ BUFFER ADDRESS 
UNITS TEST REGISTERS FROM SWAPIN 


OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 
XSPKNM = # OF PACKETS EXPECTED 

XSFLG = FLAG BYTE OF 1ST PACKET 

XSCNT = = vTe COUNT OF 1ST PACKET 


+ SUBSEQUENT XSFLGS 
* AND XSCNTS 


uke 


SEQ 29 
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SYSTEM MACRO DEFINITIONS 


ADDRESS 
UNITS REGISTERS TEST FROM SWAPIN 
OUTPUTS = SNDCNT(R5) = # OF BYTES TO SEND 
XSPKNM = FP 


CKE 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 


* 

; = ~=SUBSEQUENT XSFLGS 
; AND XSCNTS 

. wee 


1 

1 ‘THE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
; 3 INITIATE A ‘LIAGNOSE’ SEQUENCE. 

1 ISETS UP THE witht PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
1 3; (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
1 :*RSVP* TO SEND EACH PACKET, AND ‘CHKSUM® TO CALC. THE PACKET 

$ CHECKSUM. 

2 INPUTS = os BLOCK aR5S 

2 TRBUF = BUFFER 

2 

2 

2 


ee ee ee ee ee ee ee ee ee ee ee ee | 
WNWWWNNAWWNWWNAWNANWWANANNW 


WAWIWWWNWIP Por 
AUSWN —OOVOONAULSWN—OVDONONEW 


a me ne a ee ee ne a an ee we oe = oe es - ee 


SEQ 30 
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‘SYSTER MACRO DEFINITIONS 


—s 
Ww 
o | 
w ; 


p++ 
| 1364 THE TEST ID MACRO INTERFACES THE ert Ss TEST DISPATCH TO THE 
i 1365 ;DIAGNOSTIC’S FORMAT BY IMPLEMENTING CALLS T 1) yd ee a y+ 
| 1366 3PC OF THE TEST CODE (TSTPC(RS5)), 2) ASSIG THE 1ST DRIVES, 
a4 :THE TEST, 4) SWITCH DRIVES AND REINITIALIZE, 5) RUN THE TEST AGAIN. 
| ;== 
1369 


1 388 J reer e ee reer eee ees ee cee eeesoesesesesees cesses ssesesssesesosesc= 


SEQ 31 

| GLOBAL AREAS | MACRO M1200 15=DEC-82 12:54 PAGE 48 
GLOBAL SUBROUTINES SECTION 

1391 .SBTTL GLOBAL SUBROUTINES SECTION 

1393 r++ 

1394 : THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED 

1395 : TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (THROUGH THE TSTID MACRO). 

1397 : 

1399 5 SMAPDR 

1400 : A pS UBROUT INE TO DETERMINE IF TO TEST AQTHER DRIVE. “(FOR ALL UNITS) 

1407 : INPUTS: DR(RS) = DRIVE CONFIGURATION 

1408 ; BLKTBL = TOP OF DATA Brock ALLOCATION TABLE 

1609 : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 

1411 : OUTPUTS: DR(RS) UPDATED TO TEST SAME OR OTHER DRIVE 

1412 : CARRY SET IF SECOND PASS NECESSARY 

1467 i 

1468 005500 005002 SWAPDR:: CLR = R2 sFOR # OF DRIVE 1 

1469 005502 012737 003340 005600 MOV #BLKTBL,SWPTR :TABLE ADDR. OF ist” UNIT 

1470 005510 017705 000064 1$: MOV @SWPTR,RS :GET DATA BLOCK ADDR. 

1471 005514 032715 100000 BIT #61T15.aR5 S ABORTED? 

1472 005520 001013 BNE 3 YES 

1473 005522 032765 000001 000060 BIT #BITO,DR(RS) DID DR. 0? 

1474 0055 1007° BNE :NO, DID DR.1 1ST PASS 

1475 005532 032765 001000 000060 BIT WBIT9,DR(RS) ©; YES; 1 SELECTED? 

1476 005540 001403 BEQ :NO, ALL DONE 

1477 005542 105265 000060 INCB —ODR(RS) 7YES, SWAP 

1478 005546 005202 INC R ‘ONE MORE TO TEST 

1479 005550 025727 005600 003356 3$: CMP SWPTR,#LSTDEV LAST DEVICE? 

1480 005556 103004 BHIS 

1481 005560 062737 0900002 005600 ADD #2, SWPTR <NO-POINT NEXT 

1482 005566 000750 BR 1$ :D0 

1484 005570 005702 4$: TST R2 : (CLEAR CARRY) ,MORE TO DO? 

1485 005572 001401 BEQ 5$ NO 

1486 005574 000261 SEC “YES 

1487 005576 000207 5$: RETURN RETURN 

1489 005600 000000 SWPTR: WORD 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


MACRO M1200 15=DEC-82 


012737 


000000 


003340 


000400 


000060 
005656 


000002 


005656 
000060 


003356 
005656 


12:54 PAGE 50 


SEQ 32 


:++ 
; SETDR = SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST 


DR(RS) = DRIVE CONFIGURATION 
BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


DR(RS5) IS SET TO TEST DRIVE 0 OR DRIVE 1 


WBLKTBL,SETPTR ;TABLE OF ADDR. 1ST UNIT 
@SETPTR,RS GET DATA BLOCK ADDR. 
DR(RS) PRESET AS DRO 
* aaa 290 DRO? 
DR(R5) sNO-USE DRIVE 1 
SETPTR,#LSTDEV ;MORE UNITS 


sNO-EXIT 
#2,SETPTR 7: YES-GET TABLE ENTRY 
1$ CONFIGURE THAT UNIT 


GLOBAL AREAS MACRO M1200 15=DEC-82 12:54 PAGE 52 
GLOBAL SUBROUTINES SECTION 
| air 3 
1518 $ 
1519 $ 
1520 : INPUTS: 
1521 : 
1522 3 
1523 3; OUTPUTS: 
1524 : 
1525 3; CALLS: 
138 4 
1528 005660 012737 003340 005752 CLRALL:: MOV 
1529 005666 017705 000060 1$: MOV 
1530 005672 004737 005720 CALL 
1531 005676 023727 005752 003356 CMP 
1532 005704 103004 BHIS 
1533 005706 062737 000002 005752 ADD 
1534 005714 000764 BR 
1535 005716 000207 23: RETURN 


SEQ 33 


tt 
CLRALL = CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 


BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


ALL UNITS BUFFERS CLEARED. 
CLRBUF 


ke: all :TOP OF TABLE OF ADDRESSES 


@CLRPTR.RS :GET DATA BLOCK 
CLRBUF SCLEAR IT'S RECEIVE BUFFER 
CLRPTR,#LSTDEV LAST DEV? 

t==>NEXT 


#2,CLRPTR 
1 3 CONTINUE 


(an a Et ee --—--——-—-+ -+ 


[GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 54 
epee SUBROUTINES SECTION 


1539 3; CLRBUF = CLEARS 1 UNIT'S INPUT BUFFER. 

1540 3; INPUTS: RCVBUF(RS) IS BUFFE 

1541 : RCBFSZ = SIZE OF RECEIVE BUFFER IN BYTES 
1542 3 RCBFSZ IS SIZE OF BUFFER 

1543 ; OUTPUTS: CLEARED AREA. 

1544 i- 

1545 

1546 005720 CLRBUF:: PUSH +4 ;SAVE RO 

1829 005722 PUSH + SAVE R4 

1548 005724 016500 000102 MOV RCVBUF (RS) . RO GET ADDRESS OF BUFFER 
1549 005730 012704 001036 MOV #RCBFSZ,R4 :S1ZE IN BYTES 

1550 005734 005020 1$: CLR (RO)+ CLEAR IT 

1551 005736 iser) 000002 SUB + % R4 $ BYTES LESS 

1552 005742 001374 BNE $ 

1553 005744 POP Re RESTORE 

1554 005746 POP RO $ 

1555 005750 000207 RETURN sEXIT 

1556 005752 000000 CLRPTR: .WORD 


SEQ 34 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


fs 005754 
005760 


“ 
to) 
So 
& 
oO 
Nm 
So 
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000207 


003314 


003316 
000002 


003316 


000020 
003356 


003316 


; : INPU TS: 


SETUP:: 
1$: 


2$: 


; OUTPUTS: 


8 
RETURN 


; SETUP - CALLED Nery EACH et TO INSERT BEGINNING ADDRESS OF THE 
ES: INTO TEST PC*S. 


UNITS 
LOADED WITH TEST ALGORITHMS Ae by ADDR. 
KTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
STDEV - ADDR. OF LAST UNIT'S DATA BLOCK 


TSTPC(RS) FOR ALL UNITS 
DONE = CLEARED 


DONE iy 


DONE sNOT 
WBLKTBL,IDPTR TABLE TOP ADDR 
VICE’S DATA 


@IDPTR,RS :DEVI BLOCK 
TSTTOP, TSTPC(R5); INSERT PC FOR. TOP OF TEST 
IDPTR,#LSTDEV sALL UNITS SET? 


2 
#2, 1DPTR 'NO, GET NEXT POINTER 
1$ SET HIM UP 


SEG 35 


0800 I I ES 
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GLOBAL SUBROUTINES SECTION 


90 006026 005737 
91 006032 001006 
92 34 004737 


5 

5 

587 

res 006022 004737 
5 

5 


596 006042 004737 
597 006046 000765 
598 006050 000207 





006052 
003314 
006736 


010112 


SEQ 36 


:++ 
; RUN = gy tl THE CALLS TO SEND PACKETS, RECEIVE PACKETS, THEN 


: INPUTS: 
: OUTPUTS: NON 


RUN:: CALL 


CALL 
BR 
2$: RETURN 


NXTST 
DONE 
2$ 

GE TANS 


CHKANS 
R 


HECK ANSWERS DURING TEST RUN TIME. 
DONE 


3MAKE wep umite NEXT PACK TO ALL 


; UNABORTE 
+ COMP LETE? 


YES 
INO, GET ALL RESPONSES 
SUPERVISOR CHECK 


:CHECK ALL_RESPONSES 
CONTINUE TILL DONE 


ae a Ce ee 


PR ea ee ae eee 


| SEQ 37 
| 
;GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 60 
NXTST / THE SCHEDULER 
1601 .SBTTL NXTST / THE SCHEDULER 
1808 
604 ; *NXTST - USING EACH UN-ABORTED UNIT'S TEST PROGRAM COUNTER 
1605 : STPC(RS)), EXECUTES THE TEST CODE THAT COMPRISES MAKING A 
06 ; PA ACKEt AN D SENDING IT. ACTION IS ROUND ROBIN. CHECKS FIRST 
1607 ; FOR Y UNIT RETRYING AND IF SO SERVICES ONLY THAT UNIT THIS 
1608 ; PASS. INITS NON@RETRYING UNITS IF NECESSARY. 
1609 > INPUTS: (IMPLIED) DATA BLOCKS. 
1610 ; BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
161) ; LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1613 : OUTPUTS: ERRSF IF ALL UNITS ARE ABORTED. 
1614 ; SYSTAT IS UPDATED 
isi ” 
1617 006052 012737 003340 003304 NXTST:: MOV #BLKTBL,DEVPTR ;UNIT 0 TO START 
1618 006060 017705 175220 1$: MOV ap EVPTR, RS :GET DATA BLOCK 
1619 006064 032715 002000 BIT T10,aR5 SRETRYING? 
1620 006070 001422 BEQ o [NOT THIS GUY 
1621 006072 005715 TST ARS SYES, ABORTED THO? 
1622 006074 100420 BMI 2$ 3YES ON TO NEXT UNIT 
1623 006076 052737 000002 003300 BIS WBIT1,SYSTAT | :NOT ABORTED-SET URETRY STATUS 
1624 006104 SWAPIN GET DEVICE REGISTERS 
1625 006130 004775 000020 JSR PC ,aTSTPC(RS) :D0 TEST FOR 
1626 006134 000477 BR NXTRET sTHIS ie i Ay) ) al 
1627 006136 023727 003304 003356 2$: CMP DEVPTR,#LSTDEV :TRY NEXT UNIT? 
1628 006144 103004 BHIS §NXTST :N 
1629 006146 062737 (000002 003304 ADD #2. .DEVPTR YES, =>NEXT 
1630 006154 000741 BR 1$ :GET BLOCK 
1632 006156 005037 006336 NXTST2: CLR ABONM :HERE=NO RETRIES TO DO, NO UNIT ABORTED YET 
1633 006162 012737 003340 003304 MOV #BLKTBL,DEVPTR :-->UNIT 0 STORAGE BLOCK 
1634 006170 017705 175110 PERDEV: MOV QDEVPTR.RS5 [R5==>NEXT DEVICE STORAGE BLOCK 
1636 006174 005715 3$: TST ars sABORTED? 
1637 006176 100426 BMI 4$ YES 
1638 006200 032715 040000 BIT #B1T14,aR5 ‘SEND BREAK? 
1639 006204 001407 BEQ 6$ 3NO 
1640 006206 004737 013222 CALL § DOBRK YES 
1641 006212 032715 040000 BIT #B1T14,aR5 SSUCCESSFUL INIT? 
1642 006216 001016 BNE 4$ [NO ON TO NEXT UNIT 
1643 006220 005715 TST ars ; ABORTED? 
1644 006222 100414 BMI 4$ = YES-ON TO NEXT UNIT 
1645 006224 6$: SWAPIN =NO,GET DEVICE REGISTERS RO-R4 CONTAINING | TEST PARAMETERS 
1646 006250 004775 000020 JSR PC,aTSTPC(RS) INITIATE 1 PACKET TRANSMISSION AND RETURN 
1647 006254 005715 4$: TST ars s ABORTED? 
1648 006256 100002 BPL Be ;NO-ON TO NEXT UNIT 
1649 006260 005237 006336 INC ABONM ZYES...ONE MORE TALLIED 
1650 006264 023727 003304 003356 8$: CMP DEVPTR,#LSTDEV ALL TU'S TRIED? 
1651 006272 103004 BHIS 
1652 006274 062737 000002 003304 ADD #2. ,DEVPTR NO THE ADDRESS+2= NEXT ADDRESS 
1653 006302 000732 BR PERDEV [D0 NEXT UNIT 
1654 006304 022737 000010 006336 5$: CMP #8. ,ABONM ZALL ABORTED? 
1655 006312 001010 BNE NXTRET NO 
1656 006314 ERRSF  100.,NOMOR YES! 
1657 006324 11$: BREAK ‘SUPERVISOR BREAK 


ne 


M 3 
GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 60-1 
NXTST / THE SCHEDULER 
1658 006326 005237 003332 INC ALLGON 7SET_DON'T=PRINT STATISTICS FLAG 
1659 006332 DOCLN sEXIT 
ieee 006334 000207 NXTRET: RETURN 
1662 006336 coon ABONM THE NUMBER OF ABORTED UNITS 
ige7 006340 101 114 114 NOMOR: “ASC? /ALL UNITS aporTéD!/ 


SEQ 38 


G 
R 


2 


LOBAL AREAS MACRO M1200 15=DEC-82 12:54 PAGE 62 
SVP / KOFF AND SEND A PACKET TO ALL DEVICES 
1667 .SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 
1669 3¢ 
1670 : RSVP - SAVES TEST CODE PROGRAM COUNTER IN TSTPC(RS) AND UNIT'S REGIS= 
1671 : TERS. POINT "'“OFF'’ THAT PRECEEDS PACKET IN XMIT BUFFER 
1672 : AND SENDS PACKES WITH XOFF. RETURNS TO SCHEDULER (NXTST) SO 
1673 : THAT OTHER UNITS PACKETS MAY BE FORMED, TO GET ALL UNITS WORKING 
1675 : INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED. THE 
1676 ; NUMBER PACKETS EXPECTED (XSPKNM), AND THE EXPECTED FLAGS AND 
1677 : BYTE COUNTS OF EACH (XSFLG, XSCNT...) ARE LOADED BY TEST CODE 
1678 ; (MACROS) . 
1679 : SNDCNT = # BYTES To SEND 
1680 3 REC(RS) = RECOR 
1681 : TRBUF = BUFFER A 
1682 : XSPKNM(R5) = # EXPECTED 
1683 : RCVBUF (R5) 
1685 + OUTPUTS: CMDSNT = UPDATED WITH PACKET OP CODE 
1686 3 BLKER = RECORD NUMBER STATISTICS UPDATED IF NOT RETRYING 
1687 : AND COMMAND PACK ET SENT. 
1688 : SUCCS(RS) = PRESET CLEAR 
1689 : STATUS WORD @R5 = Bits = DATA CHECK ERROR = CLEARED 
1690 : BITS = "VER ry" OPERATION 
1691 : BIT4 - 0 = PACK 1 = NcMND 
169¢ : BITS = RD/W A OPERAS TON 
169 : XSPTR = POINTS TO EXPECTED FLAG 
1694 : UPPER BYTE OF XSPKNM IS REPLICATED. 
1695 ; PACKET POINTER (PKPTR(RS)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
1696 : AREA (RCVBUF(RS)) FOR CURRENT UNIT. 
1698 , 
1699 006364 000240 RSVP:: NOP zFINISH TEST 
1700 006366 012665 000020 MOV (SP)+,TSTPC(RS) :SAVE WHERE YOU WERE IN TEST BODY AND 
1701 006372 SWAP SSAVE TEST REGISTERS 
1703 : CORRECT FOR RETURN TO SCHEDULER 
1704 006416 012700 024367 XFNSND: MOV #TRBUF-1,RO [POINT TO X 
1705 006422 005265 000070 INC SNDCNT(R5) ZONE MORE TO SEND, TOO. 
1706 006426 000402 BR SND ‘SEND XOFF+PACKET 
1707 006430 012700 024370 NOXOFF: MOV #TRBUF RO [FOR NORMAL PACKET SEND 
1708 006434 004737 006666 SND: CALL  SNDBYT :SEND BYTE 
1709 006440 005715 TST ars :R5==-> TO STATUS BLK 
1710 006442 100510 BM! 6$ SABORTED? YES...QUIT 
1711 006444 005365 000070 DEC SNDCNT(R5) NO, SEND MORE 
1712 006450 001371 BNE :1F MORE TO SEND 
1713 006452 012700 024370 MOV ATRBUF FFER 
1714 006456 016537 000064 003324 MOV REC(R55,BLKER PREPARE FOR RECEIVE 
1715 006464 156565 000032 000033 BISB  XSPKNM(RS5), siSpxade tro) sREPLICATE LO. BYTE TO HI FOR GTPAKS, CHKANS 
1716 006472 005065 00007 CLR SUCCS(R5) iN SUCCESS YET 
1717 006476 042715 00100 BIC #B1T9,aR5 O DATA CHK ERROR YET 
1718 006502 016565 000102 000104 MOV RCVBUF (RS), PKPTRGRS) sTOP OF RCV BUFFER GOES THE 1ST PACKET 
1719 006510 012704 000034 MOV aXst LGR FOR 
1720 006514 060504 ADD AR s ADDRESS 
1721 006516 010465 000106 MOV Ra RSPTR(RS) SOF 1ST XSFLG 
1723 006522 042715 000020 BIC #B1T4,aR5 sPRESET AS DATA PAK 


SEQ 39 








am 


SEQ 40 | 
GLOBAL AREAS, MACRO M1200 15=DEC=82 12:54 PAGE 62-1 | 
RSVP / XOFF AND SEND A PACKET TO ALL DEVICES | 
1724 006526 121027 000002 CMPB = ARO, #RSCMND ;WAS IT COMMAND PAK? 
1558 006532 001054 BNE we. 
1726 006534 116065 000002 000100 MOVB (RO), CMDSNT(RS)* sVESSSAVE COMMAND | 
1727 006542 052715 000020 BIS 4,aR5 z1TS CMND P. | 
1729 006546 032715 002000 BIT #B1T10,aR5 ;RETRYING? | 
1730 006552 001044 BNE YES=DON'T UPDATE ANY STATS OR CONDITION | 
1731 006554 126027 000002 000002 CMPB —«-.2(RO) ,#RSSRD iNO,A READ? 
1732 006562 001012 BNE & 
1733 006564 042715 000400 BIC #B1T8,aR5 + (FOR HARD/SOFT LOGGING) RD/WR FLAG=0 
1734 006570 004737 013052 CALL  WHCHDR ZGET DRIVE | 
1735 006574 103403 BCS 8$ : 
1736 006576 005265 000114 INC RDNO(RS) [DRIVE 0 
1737 006602 000402 BR : 
1738 006604 005265 000116 8$: INC RDN1 (RS) DRIVE 1 
1740 006610 126027 000002 000003 4s: CMPB = 2(RO),#RSSWR ss A: WRITE? 
1741 006616 001022 BNE =N 
1742 006620 052715 000400 BIS #BI1T8,aR5 TYES, RD/WR FLAG=1 | 
1743 006624 105760 000003 TSTB —-3¢RO) :VERIFY TOO? 
1744 006630 001403 BEQ 31$ : | 
1745 006632 052715 000040 BIS #B1T5S,aR5 TYES-SET VERIFY FLAG 
1746 006636 000492 BR | 
1747 006640 042715 000040 21$: ~—«BIC #B1TS,aRS :(NO)“RESET VERIFY FLAG 
1748 006644 004737 013052 22$: CALL = WHCHDR GET DRIVE NO ! 
1749 006650 103403 BCS 5$ :CARRY=DR1 | 
1750 006652 005265 000110 INC WRTNOCRS) 7) BLKS URITTEN DRO 
1731 006656 000402 BR 6$ EXIT 
1753 006660 005265 000112 5$: INC WRTN1 (RS) :# BLKS WRITTEN DRV1 
1754 006664 000207 6$: RETURN sRETURN 


NN 
ao 
Go 
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SNDBYT / OUTPUT A BYTE TO UNIT 


003334 
000026 


000056 
012046 


000030 


' 
| 
a 


SEQ 41 


a 


-SBTTL SNDBYT / OUTPUT A BYTE TO UNIT 


; : SNDBYT = rest *READY' ON ph sea IF ‘READ’*, SEND BYTE AND EXIT. 
‘ ED OUT, rhe ERR 
: INPUTS = RO = POINTER HO BUEFER 
: “#8 hay UNIT DATA BLOCK 
; - Ma A CONSTANT 
; OuTP UTS” ~ rth rH INCREMENTED. 
: _ERROR = NOT-READY-TO-SEND TIME OUT 
SNDBYT:: PUSH R1 zsENTER RO-=>BYTE 
4$: “MOV CSNRDY,R1 [GET TIMEOUT CONSTANT FOR NOT READY ERROR 
1$: TSTB @XMSRC(R (R5) :READY TO SEND? 
BMI 2$ 
PUSH RO [NO, SAVE RO 
BREAK sMONITOR BREAK 
PoP RO RESTORE 
DEC R1 ~ atte 
BNE 1$ 
MOV #TOSNDB,R4 NES. id CODE FOR TIMEOUT ERROR 
CALL LOG [L0G IT 
BR 3$ ;QUIT 
2$: MOVB (RO)+,@XMDB(RS) ;SEND IT 
3$: R1 RESTORE 


POP 
RETURN ; DONE 
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GLOBAL AREAS 
GETANS / GETS RESPONSES ROUND ROBIN USING ‘'XON"’ 


1 

1805 006770 
1806 

1807 006774 
1808 007000 


1809 
1810 007002 
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000240 


004737 


004737 
000207 


000000 


000002 003300 
177777 007656 
005660 
007214 
005720 
007004 


-SBTTL 


GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON’’ 


: GETANS - as UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 


RESPONSE (GTPKS1), ELSE, CLEAR ALL BUFFERS (CLRALL) AND 
GET (GTPKS8). 
CF STAT - SYSTEM STATUS WORD. 


; INPUTS: 

; OUTPUTS: SERVST = -1 IF NO RETRIES. 

GETANS:: NOP 31 UNIT IF RETRY; ELSE ALL 
BIT #B1T1,SYSTAT RETRY? 
BNE zYES 
MOV #-1,SERVST PRESET NO UNITS SERVICED 
CALL CLRALL a ALL age BUFFERS 
CALL GTPKS8 :GET_ALL REPL 
BR 2$ 3€ 

1$: CALL CLRBUF ;RETRY-CLEAR } UNIT ONLY 

7R5->UNIT BY NXTST 

CALL GTPKS1 [GET 1 REP ty 

2$: RETURN 3; DONE 


GETPTR: 


«WORD 


SEQ 42 


——— 





- 
| 
| SEQ 43 
GLOBAL AREAS | MACRO M1200 IS=DEC~B2 12:54 PAGE 68 
| GTPKS1 / GET RETRY RESPONSE=1 UNIT 
| 1813 .SBTTL GTPKS1 / GET RETRY RESPONSE=1 UNIT 
1815 i+ 
| 1816 ;GTPKS1 = SENDS *XON' TO UNIT. GETS FLAG BYTE (IF ANY), CHECKS IF IT Is 
1817 ; T WAS EXPECTED. “IF IT IS, USE EXPECTED BYTE COUNT(XSCNT). IF 
1818 ; NOT. CHECK IF PREMATURESEND BACK OR (SINCE MAINTENANCE MODE) 
1819 ; IF {T'S A PREMATURE DATA PACK. ADJUST COUNT, GET REST OF 
1820 ; PACKET, AND REPEAT ABOVE UNTIL NO MORE PACKETS. 
1821 ; INPUTS: (IMPLIED) UNITS DATA BLOCK 
1822 : RSNDSZ = END PACKET SIZE 
1824 ; OUTPUTS: SYSTAT UPPER BYTE = FLAG BYTE RECEIVED 
1826 
1827 007004 000240 GTPKS1::_NOP :R5->THE UNIT 
1828 007006 012703 000034 MOV = AXSFLG,R3 ‘THE OFFSET VALUE OF FLAG 
1829 007012 060503 ADD RS RS FORM THE ABSOLUTE ADDRESS 
1830 007014 010301 MOV —-R3,R1 ERS-->ADDR. OF EXPECTED FLAG 
1831 007016 062701 000002 ADD = #2. , RT :R1-->ADDR. OF EXPECTED COUNT 
1832 007022 012700 007212 MOV, EXON, RO ;RO=ADDRESS 
1833 007026 004737 006666 CALL SNDBYT :XON THE DEVICE 
1834 see TIME CRITICAL 
1835 007032 016500 000102 MOV —-RCYBUF(RS) RO :#es~=> TO THE BUFFER 
1836 007036 116502 000033 MOV — XSPKNM+1(R5),R2 :*#*GET THE # OF PACKETS TO RECEIVE 
1837 007042 032702 177400 BIT -#177400,R2 ;#**SIGN_UN-EXTEND 
1838 007046 011137 003310 1$: MOV — RT RCBCNT ;***HOW MANY BYTES IT SHOULD BE 
1839 007052 011337 003306 MOV RS, RCFLG ;*eWHAT THE FIRST BYTE SHOULD BE 
1840 007056 004737 007662 CALL GTBYTE ;#*eGET THE ALL IMPORTANT FLAG 
1841 007062 032715 100000 BIT #B1T15,aR5 ; TIMEOUT? 
1842 007066 001050 BNE  4$ iY 
1843 007070 005300 DEC RO i=> BYTE RECIEVED 
1844 007072 111037 003301 MOVB  @RO,SYSTAT#1 =: SAVE_IT_AS FLAG BYTE 
1845 007076 121037 003306 CMPB = @RO, RCFLG i 1ST BYTE WHAT WAS EXPECTED? 
1846 007102 001420 BEQ 
1847 007104 121027 000002 CMPB RO, #RSEND iNO, WAS IT END PAK? 
1848 007110 001006 BNE 
1849 007112 012737 000016 003310 MOV —ARSNDSZ,RCBCNT :YES, USE END SIZE FOR COUNT 
1850 007120 012702 000001 MOV = -#1,R2 ASSUME IT*S LAST PACKET! 
1851 007124 000407 Bk CONTINUE RECEIVE 
1852 007126 121027 000001 148:  CMPB_ = @RO,#RSDATA = :WAS_IT DATA? 
1853 007132 001026 BNE :NO,CHKANS MA INIT... 
1854 007134 012737 000204 003310 MOV - #RSDASZ,RCBCNT YES, SET FOR DATA PAK SIZE 
1855 007142 005202 INC Re ZONE MORE PACK THAN EXPECTED (END PACK) 
1857 007144 005200 28: INC —RO ;RESTORE TO -> NEXT BYTE 
1858 007146 005337 003310 5$: DEC —saRCBCNT ;THAT'S ONE LESS BYTE TO GO 
1859 007152 001411 BEG 3S 
1860 007154 004737 007662 CALL — GTBYTE GET REST OF PACKET 
1861 007160 005765 000074 TST LVRS) RROR 
1862 007164 001011 BNE 4$ EVESeALL OVER 
1863 007166 032715 100000 BIT — #B1T15,aR5 OR. 1F ABORTED 
1864 007172 001006 BNE -4$ THEN QUIT 
1865 007174 000764 BR 5$ CONTINUE. RECEIVE 
1867 007176 005302 38: DEC aR :ONE_LESS PACKET TO GO 
1868 007200 001405 BEO 4$ {MORE PACKETS IN TRANSACTION? 


SEG 44 


GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 PAGE 68-1 
/GTPKS1 / GET RETRY RESPONSE=1 UNIT 

| 1870 007202 022121 CMP (R1)+,(R1)¢ sPOINT TO NEW EXPECTED COUNT 
—- 1871 007204 022323 CMP (R3)+,(R3)+ zAND FLAG, 

' 1872 007206 000717 BR 1$ sAND RECEIVE, 
te 007210 000207 4$: RETURN sRETURN 


| 1875 007212 020 EXON: .BYTE  RSXON 
1876 007213 «= «033 EXOFF: BYTE RSXOFF 


GLOBAL AREAS 


seis / GET RESPONSES (NO RETRIES) 


000240 

003340 
000430 
100000 
007572 
000033 
007572 


000033 


2700 007212 
006666 


100000 
000033 
003301 
003306 


6 

5 000033 
? 000002 
7 


000016 


—Onvoon— 


? 00000) 
053 
737 000222 
200 
003310 
007662 


© 

1] 

“ 

¥ 

Oo 
ooo-Sooo--0o—-— 
Ss°osns 
PVaarooknon 


007660 


003306 
000106 
003310 


003310 


003310 
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SEG 45 


-SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 


: GTPKSB * olf ALL_ABORTED opt SERVICED (SERVST: BIT POSITION). 
T (SERVST=0), I 


GTPKS8:: 
GTAGIN: 


2$: 


3$: 


4$: 


UNXPCT: 


; INPUTS: 


N 
ADJUST COUNT I 


S SERVICED 


UNTIL 


AG, 
F PACKET. IF WAS DATA PACK, 


REST O 
Ti? wan A ail TO ENHANCE THROUGHPUT AND GO ON TO NEXT UNIT 


( 
npc teDSuntrs DATA BLOCK POINTED TO BY R5. 
RSNC PACK SIZE 


SZ = END 


NONE PASSED. 


RSDNSZ = DATA + END SIZE 


#BLKTBL,GTPTR 
aGTPTR,RS 


#B1T15.aR5 
2$ 

SETSRV 
GTDOWN 
XSPKNM+1(R5) 
3$ 

SETSRV 
GTDOWN 
XSPKNM+1(R5) 


AXSPTR(RS) RCFLG’ 
#2,XSPTR(R 

SXSPTRCRS). RCBCNT 
#EXON, RO 


SNDBYT 
PKPTR(RS) ,RO 
GTBYTE 


Y 
SEETtD ERS 
XSPKNM+1(R5) 
GTDOWN 
RO 
@RO,SYSTAT+1 
@RO,RCFLG 


GTOK 
XSPKNM+1(R5) 
@RO,#RSEND 


#RSNDSZ ,RCBCNT 
TUM 


aro, Soa 
TDOWN 


G 
#RSDNSZ ,RCBCNT 
RO 


; OUTPUTS: SYSTAT = UPPER BYTE=1ST BYTE RECEIVED, CURRENT UNIT 


ler UNITS RESPONSES XOFF IF DATA PAK (THROUGHPUT) 
7GET DATA BLOCK 
;ABORT ED? 


NO 
:YES-SET’ SERVICED’ AND 
30N TO NEXT UN 
zNO, ANY PACKETS LEFT? 
ZNO=HE'S 


D 
3S0 ON _TO NEXT UNIT 
ITS ONE LESS PACKET 
hd EXPECTED FLAG 


> COUNT 
- = EXPECTED COUNT 
fateTIME + ple 


saat 


I 
zeee-DUHERE 1ST BYTE GOES 


peeeGET 


:ABOR 
NO=CON 


a4 


TINUE 
zYES-NO MORE PACKETS EXPECTED 


30N 


TO 
rte a JUST RECEIVED 
sie IT WHAT EXPECTED? 


iNOS gg 3 Be sr »REPLY 
;MAYBE AN 


END P 

NO 
:YES, USE PROPER COUNT 

ND Ger IT 
:Is IT DATA? 

ALL OVER, CHRANS WILL INIT UNIT 

ives, USE COUNT OF DATA + END PAK SURE TO FOLLOW 

WHERE TO STUFF THE REST 


SON D 
:NONE TO GO 


:MORE TO GO 


.—- 


AREAS 


:= 


007430 
007434 
36 


wooo 
WWW 
oo 


CONAUSWN—OOON 
—] 
= 
&* 
uw 
& 


4 
007450 
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/ GET RESPONSES ( TRIES) 


Ose7 18 


105737 


001212 
000207 


100000 
000074 
000033 


003310 


007662 
100000 


000074 
000033 
000001 
000104 


007660 
000002 
007656 


000104 


000106 
003356 


007660 


2$: 


GTDOWN: 


1$: 


BN 
RETURN 


#B1T15,aR5 
DOWN 

DLV(RS5) 

XSPKNM+1(R5) 
DOWN 


axungoga 
sn ar 


RO 
RCBCNT 
2$ 


GTBYTE 
rs o@R5 


GT 

DLVC(R5) 

1$ 
i 


ARSDATA, aPKPTRRS) 


RO,PKPTR(RS) 
#EXOFF RO 


SN 
#2.,XSPTR(RS) 
GTPTR,#LSTDEV 


G 
SERVST 
GTPKS8 


SEG 46 


4 al 
BUT DLV ERROR? 


i YES-LAST TIME 
30N TO NEXT 


sNEXT PLACE IN BUFFER 
ORE BYTES? 


i TIMEOUT? 

ERROR? 

;LAST TIME 

zWAS DATA? 

"ALL DONE 

;START OF NEXT PACK NEXT TIME 

F END 19 

[NEXT XSFLG FOR NEXT TRY 

: DONE ONE CYCLE ALL UNITS? 
[NEXT UNIT 

[CONTINUE RECEIVE 

:DONE SERVICING ALL PAKS 

[FROM ALL UNITS? 

:NO, KEEP TRYING 


a 


‘ee me ae ee ee ee -- a 


SEC 47 


GLOBAL Pit MACRO M1200 15=DEC=82 12:54 PAGE 72 
SETSRV / SET UNIT SERVICED 


a: 


969 -SBTTL SETSRV / SET UNIT SERVICED 

1970 

1972 : "SETSRV ~ RESET THE BIT IN *SERVST* CORRESPONDING TO THE UNIT NUMBER. 
1973 s INPUTS = SERVST = "SERVICED’ WORD 

1974 $ - @R5 = UNIT # (BITS 1, 2) 

1975 : OUTPUTS = SERVST MODIFIED 

i zs 

1978 007572 SETSRV: PUSH RS SET UNIT SERVICED 
1979 007574 PUSH RO 

1980 007576 011505 MOV @R5,R5 :GET STAT WD 

1981 007600 042705 177770 BIC #177770,R5 sMASK UNIT # 

1982 007604 012700 007636 MOV #SRVTBL,RO To OF BIT TABLE 
1983 007610 005705 1$: TST R5 RIGHT ONE? 

1984 007612 001404 BEQ 2$ 

1985 907614 062700 000002 ADD #2,R0 INO. = 

1986 007620 005305 DEC R5 71 LES 

1987 007622 000772 BR 1$ ‘CONTINUE 

1988 007624 041037 007656 23: BIC @RO,SERVST ;MOW IT DOWN 

1989 007630 POP RO 

1990 007632 POP R5 

+4 007634 000207 RETURN ;RETURN 

1993 007636 000001 SRVTBL: .WORD BITO sB1T POSITION LOOKUP TABLE 
1994 007640 000002 WORD 81T1 

1995 007642 000004 ° BIT2 

1996 007644 sited -WORD BITS 

1997 007646 0000 . BIT4 

1998 007650 000040 . BITS 

1999 007652 000100 -WORD BIT6 

so 007654 000200 -WORD BIT? 

2002 007656 000000 SERVST: .WORD 


2003 007660 000000 GTPTR: .WORD 


GLOBAL AREAS 
|GTBYTE / GET A BYTE FROM U 


poo 


2029 007662 
66 


2 
2053 007772 
2054 007776 
2055 010002 
2056 010006 
2057 0100 
2058 0100 
2059 0100. 
2060 0100 
2061 0100 
2062 010034 
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001357 


010037 


001370 
012700 
7 


010106 
003336 
000022 
000024 
000074 
000074 
000074 


010106 


010110 


000022 
010106 
010106 


007212 
006666 
010110 


010110 


000074 
000074 


000074 


000074 


-SBTTL GTBYTE / GET A BYTE FROM UNIT 


:Grevte - _ he hag FOR "READY-TO-RECEIVE* AND INPUT A ts IF 
»_ THE Nt a OCCURS: SEND °XOFF* TO U iT IN 


: T E 

: "XON’, AND TEST FOR LONG TIMEOUT (A 30 SECOND REWIND). IF SO, 
; LOG ERROR, OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME OUT. 
: REMEMBER TO PRESERVE RO SINCE THE ‘BREAK’ TRAP CLOBBERS IT. 


; INPUTS = RO POINTS TO INPUT BUFFER 
; = IMPLIED UNITS DATA BLOCK 
- CSRCVB TIME OUT MULTIPLIER 


RO IS_INCREMENTED 
= DLV (R5) NON-ZERO ON INTERFACE ERROR. 


; ERROR = TIME OUT ON RECEIVE 


; OUTPUTS 


GTBYTE:: CLR GBTMP : TIMEOUT REGISTER 
MOV CSRCVB,R4 ‘TIMEOUT ERROR CONSTANT (MULTIPLIER) 
1$: TSTB  a@RCSR(RS) SREADY? 
BPL 3$ “NO 
MOV ARCDB(RS) , DLV CRS) onset ERROR + BYTE 
MOVB _—DLV(R5), (RO)+ Y BYTE TO BUFFER 
TST DLV vere)” it RRORS 
BMI 4$ SYES“EXIT 
CLR DLV(RS) *NO-RESET 
BR SAND EXIT 
3$: DEC GBTMP :DEC T. 0. CONSTANT 
BNE 1$ ‘STILL VALID 
sCODE TO SEE *C DURING LONG SEEK OR REWIND | a 
MOV RO,GBTMP2 "RO MUST BE PRESERVED! 
MOV #EXOFF RO ‘QUIET THE DEVICE 
CALL § SNDBYT ‘BY SENDING XOFF 
6$: TSTB  aRCSR(RS) SCHARACTER SLOP OVER? 
BMI 5$ :YES 
DEC GBTMP *NO-WAIT A WHILE 
TSTB = ©GBTMP : DONE WAITING? 
BNE 6$ 
BREAK ‘VES=NO SLOP OVER 
MOV #EXON,RO i START DEVICE TALKING 
CALL § SNDBYT SAGAIN 
MOV GBTMP2,RO SRESTORE RO 
BR 7$ SEND KLUGE 
MOV GBTMP2,RO RE RO 


"RESTORE 
MOV ARCDB(R5),DLV(RS) :GET ERROR + BYTE 
MOVB  ODLV(RS),(RO)* ;COPY BYTE TO BUFFER 
TST D TERROR? 


S LV(R5) 
BMI 17$ 7 YES-EXIT 
CLR DLV(R5) ;NO=CLEAR 


SEQ 48 


GLOBAL AREAS 


‘erties 


2063 010040 
2064 010042 
2065 010046 
2066 610052 
2067 010056 
2068 010062 
2069 010064 
2070 010070 
2071 0100 


72 
sore 010074 
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000000 


GET A BYTE FROM UNI 


000050 
012046 


17$: 


7$: 


GBTMP: 
GBTMP2: 


CALL 

RETURN 
ORD 

- WORD 


17$ 
RO GaTMP? 
#EXON, RO 

SNDBYT 
GBTMP2,RO 


GBTMP 
R4 


1$ 
#TORCVB,R4 
LOG 


0 
0 


sEXIT 
sAGAIN SAVE RO 
;RESTORE TO — STATE 


:BY SENDING ° 
sRESTORE RO 
NE 


3 TIMEOUT? 
0 


:YES 
LOG ERROR. 
RETURN 


SEG 49 


———— ---4 


“GLOBAL AREAS 
CHKANS / CHECK DEVICE(S) RESPONSE 


2091 010112 
2093 010114 

010122 
3344 010124 
2097 010130 


= 
o 


a 
So 


=OOONOUESWN— 
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000240 
032737 
001403 
004737 
000422 


012737 


000207 
000000 


000002 
010202 


003340 
000034 
100000 


010202 
010200 


000002 


-SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 


; * CHKANS ° Seater.” IF RETRYING DO ONLY 7 UNIT ELSE DO ALL NON- 


LKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


F D UNI 
; INPUTS: IMPLIED SYSTAT BIT1 (RETRYING) 


; OUTPUTS: NONE PASSED. 


CHKANS:: NOP 
ELSE CHECK 
003300 BIT #B1T1,SYSTAT ; ~\- i 
BEQ CHK8 
CALL CHKPKS 
BR CHKANR ZALL DONE 
010200 CHK8: MOV #BLKTBL,CHKPTR ;YOU KNOW . 
2$: MOV @CHKPTR,RS 
BIT #B1T15,aR5 : ABORT 
BNE 3$ s¥ 
CALL CHKPKS :NO, DO THIS GUY 
003356 3$: CMP CHKPTR,MLSTDEV ;ALL DONE? 
: BHIS CH<ANR ; 
010200 ADD #2, CHKPTR 
BR 2$ 
CHKANR: _ RETURN ; 
CHKPTR: WORD 


cIF RETRY Sp CHECK ONE 


O DO NORMA 
YES oe BAZARRE WITH 
:R5 => UNIT 


GET anit’ $" BLOCK ADDRESS 


3¥ 
3NO,~=->NEXT DEVICE 
:D0 DA 


SEG 50 


SEQ 51 
| 
GLOBAL AREAS | MACRO M1200 15=DEC-82 12:54 PAGE 78 | 
\CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / | 
! 

g114 .SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 

2116 7+ 
| 2117 3 CHKPKS - FOR UNIT RS AND FOR ALL PACKETS, CHECK TO SEE IF PACKET | IS DATA OR 
| 2118 ; END PACK, CHECK CHEC KSUMS COMPARE DATA IF DATA PACK, y 

2119 : SUCCESS CODE IF END. IF UNKNOWN PACKET TYPE, CHECK, for INTERFACE 

2120 ; OR. IF CONTINUE FALL THROUGH. IF "INIT" 

2121 ; BREAK" FLAG. "LOG' WIT H R4=ERROR NUMBER IF ERROR. 

gi22 + INPUTS: (IMPLIED) Guts Apia BLOCKS 

2124 : OUTPUTS: ERRORS = DLV ERROR | 

2125 ; - UNKNOWN FLAG BYTE ERROR 

2126 : = CHECKSUM ERROR 

2127 : = DATA COMPARE ERROR 

2128 : R4 = ERROR NUMBER 

3129 : SYSTAT UPPER BYTE = 1ST BYTE OF RESPONSE 

2131 , 

2132 010202 000240 CHKPKS:: NOP :CHECK WHAT WAS RECIEVED 

2133 010204 016500 000102 MOV RCVBUF(RS),RO  :GET BUFFER ADDR. ! 

2134 010210 016502 000032 MOV XSPKNM(R5),R2 SAND # OF PACKETS EXPECTED 

2135 010214 012703 000034 MOV #XSFLG,R3 :THE OFFSET 

2136 010220 060503 ADD R5,R3 *R3-=>THIS UNIT UTSFLG AGAIN 

2137 010222 010301 MOV R3,R1 [COPY TO R1 

2138 010224 062701 000002 ADD #2.,R1 :R1==>XSBCNT FOR 1ST PACKET 

2139 010230 010065 000104 1$: MOV RO REPTR(RS) SPOINT TO PACKET 

2140 010234 111037 003301 MOVB  aRO,SYSTAT#1 ISAVE RCV'D BYTE 

2141 010240 011137 003310 MOV QR 1 -RCBCNT GET COUN 

2142 010244 011337 003306 MOV @R3,RCFLG SAND F one. 

2143 010250 121013 CMPB =. ARO aR :1ST BYTE=EXPECTED? 

2144 010252 001050 BNE ‘UH OH... 

2145 010254 121027 000020 CMPB = ARO, #RSCONT 70k, IS IT 1 BYTE? 

2146 010260 001516 BEQ 7$ SYES...ONTO NEXT PACK 

2147 =NO, SO > 1 BYTE (NEVER EXPECT INIT!) 

2148 010262 013704 003310 MOV RCBCNT,R4 3EXPECT ED, SO COUNT MUST BE RIGPT 

2149 010266 005744 TST =(R4) SADJUST FROM RECEIVE COUNT TO CUNT FOR CHECKSUM 

2150 010270 004737 013162 CALL _CKCKSM *CHECK CHECKSUM 

2151 010274 103005 BCC 2$ :NO CARRY...NO INCORRECT | 

2152 010276 012704 000022 MOV #BDCHK,R4 SERROR 

2153 010302 004737 012046 CALL LOG :LOG IT 

2154 010306 000503 BR 7$ :ON 10 NEXT PACK | 

2155 010310 122710 000002 2$: CMPB —s- ARSEND, (RO) TEND P. 

2156 010314 001005 BNE 3$ N 

2157 010316 004737 010536 CALL § CHKEND YES=CHECK | 

2158 010322 012702 000001 MOV #1,R2 tLAST PACKET 

2159 010326 000473 BR 7$ :AND FALL THROUGH 

2160 010330 122710 000001 3$: CMPB = #R DATA, aRO :DA ATA PAK? 

2161 010334 001003 BNE 

2162 010336 004737 013762 CALL COMPAR ‘VES@CHECK DATA 

2168 010342 000465 BR 7$ SALL DONE? 

2165 010344 052715 040000 4$: BIS #B1T14,aR5 :SET "DOBREAK' FLAG 

2166 010350 012704 000052 MOV #OTL RG ;0UT TO LUNCH 

2167 010354 005765 000074 TST DLV(RS) =AH,BUT DLV ERROR? 

2168 010360 001402 BEQ 20$ :N 

2169 010362 012704 000012 MOV #OVRN, RS *YES“USE CORRECT ERROR # 

2170 010366 004737 012046 20$: CALL LOG TALLY 





SEQ 52 
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|CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 


giz) 010372 000460 BR 8$ ; DONE 
ALG sHERE CHECKS UNEXPECTED RESPONSE 
| 2175 010374 122710 000004 5$: CMPB #RSINIT, ARO z INIT? 
2176 010400 001007 BNE 6$ 2NO 
2177 010402 052715 040000 BIS #81T14,aR5 zYES-SET "DOBREAK* FLAG 
2178 010406 012704 000006 MOV #RCINIT,R4 :_WE GOT AN INIT 
2179 010412 004737 012046 CALL LOG ; 
2180 010416 000446 BR 8$ 3; DONE 
2181 010420 122710 000001 6$: CMPB #RSDATA,ARO zDATA PAK? 
2182 010424 001013 BNE :NO 
2183 010426 012704 000204 MOV #RSDASZ ,R4 2YES, USE DATA SIZE 
2184 010432 005744 TST =(R4) sADJUST FOR CHKSUM 
2185 010434 004737 013162 CALL CKCKSM zAND CHECK 
2186 010440 103421 BCS 10$ : 
2187 010442 004737 013762 CALL COMPAR 20K, HOW'S THE DATA? 
2188 ZEXPECTED END, GOT 
2189 ;DATA + END. 
2190 010446 062700 000204 ADD #RSDASZ,RO POINT TO END PACK 
$135 010452 000666 BR 1$ ;CHECK IT, USE SAME XSFLG 
2193 010454 122710 000002 9$: CMPB #RSEND, (RO) zEND? 
Abe 010460 001331 BNE 4$ :NO-OUT TO LUNCH 
2196 010462 012704 000016 MOV #RSSNSZ,R4 sYES, idly SIZE MINUS 
2197 010466 005744 TST ~(R4) 3TWO (THE CHKSUM) 
2198 010470 004737 013162 CALL CKCKSM ZCHECK IT 
2199 010474 105403 BCS 10$ : 
soe 010476 004737 010536 CALL CHKEND :0K,NOW TEST SUC. CODE 
$sus 010502 000414 BR 8$ zALL DONE 
2204 010504 012704 000022 10$: MOV #BDCHK ,R4 sCHECKSUM ERROR 
2205 piparg 004737 012046 CALL LOG 
44 010514 000407 BR 8$ sEXIT 
2208 010516 005302 7$: DEC R2 zANY PACKETS LEFT TO CHECK? 
2209 010520 001405 BEQ 8$ NO. DONE 
2210 010522 063700 003310 ADD RCBCNT RO :YES, tn TO NEXT PACKET 
2211 010526 022121 CMP (R1)+,(R1)+ ;POINT TO NEXT EXPECTED COUNT 
2212 010530 022323 CMP (R3)+,(R3)+ SAND EXPECTED FL LAG 
$gi7 010532 000636 BR 1$ zTRY ANOTHER, THEY'RE SMALL 
2215 010534 000207 8$: RETURN zRETURN 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


80 


$315 .SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 
2220 3¢ 

2221 ; CHKEND - IF RETRYING; CHECK SUCCESS CODE AND IF 0, PRINT RECOVERED, LOG 
2222 ; SOFT ERROR, END RETRY STATUS. N AND WAS STILL ‘DAT 
2225 3 CHECK’* ERROR = DET ERMINE WHETHER TO CONTINUE ANOTHER RETRY OR 
328k : LOG "UNRECOVERABLE’’ ERROR 

2226 ; IF NOT RETRYING; CHECK IF "DATA CHECK’ ERROR SUCCESS CODE, 
2227 ; AND IF SO,START RETRY. ELSE EXIT. 

2228 : INPUTS: IMPLIED UNITS DATA BL ork 

2229 ; OUTPUTS: RETRY (SYSTAT BIT 1), (BIT10 aR5) sé IF RETRYING. 

2230 3 DATA COMARE ERROR (Bite ars) ¢ 

233) : -  REDUCED/NORMAL GAIN (BIT7 ars) ARN USTED 

2233 ; 

2234 010536 CHKEND:: PUSH RO zRO ==> END PAK 

2235 010540 PUSH RG 

2236 010542 032737 000002 003300 1S: BIT #B1T1,SYSTAT :RETRYING? | 

2237 010550 001052 BNE CHKREE : YES-BRANCH 

2238 010552 004737 011536 CALL  CHKSUC :NO.GET SUCCESS CODE 

2240 010556 032715 100000 BIT #B81T15,aR5 ‘ABORTED? 

2241 010562 001402 BEQ 3$ *NO, CONTINUE 

2242 010564 000137 011242 JMP CHKRET YES, EXIT 

2243 010570 105765 000077 3$: TSTB = SUCCS#1(R5) :NO; HOW'D WE DO? 

2244 010574 001013 BNE HK SNOT 

2245 010576 032715 000100 BIT #B1T6,aR5 :0K, HOST FIND DATA PAK ERROR? 

2246 010602 001002 BNE 2$ ; ES 

2247 010604 000137 011242 JMP CHKRET =NO 

2248 010610 012704 000014 2s: MOV #BDCOM,R4 ‘YES: JUST BAD DATA-NO OATACHK ERR 
2249 010614 004737 012046 CALL LOG 3BAD DATA IN PACKET 

2250 010620 000137 011242 JMP CHKRET U 

2251 010624 032715 001000 CHKERR: BIT #B1T9,aR5 BAD SUCCESS; TU DATA CHK ERROR? 
2252 010630 001002 BNE 1$ 7YES 

2253 019632 000137 011242 JMP CHKRET 3NO. ALL DONE. 

2254 010636 052715 002000 1$: BIS #81T10,aR5 SYES=START RETRY 

2255 010642 012765 000001 000002 MOV #1,RETR Tey cRS) SCALL IT 1ST 

2256 010650 PRINTX #RTRYN, RETRY RY(R5)- gee PRINT ** 

2257 010674 00056 BR CHKRET sALL DONE 

2258 010676 004737 011536 CHKREE: CALL § CHKSUC zRETRYING, GET SUCCESS 

2259 010702 105765 000077 TSTB = SUCCS#1(R5) 3 SUCCESSFUL ser? 

2260 010706 001054 NE UNSUC :NO, CHECK COUNT 

2261 010710 PRINTX #RECOV,RETRY(RS) 

2262 010734 105715 TSTB = (R5) : DETERMINE THRESHOLD 

2263 010736 100411 MI 2$ 31T*S MODIFIED 

2264 010740 PRINTX #THRSLO ‘NORMAL 

2265 010760 000410 3$ 

2266 010762 2$: PRINTX #THRSHI s ENHANCED 

2267 011002 032715 000400 3$: IT #B1T8,aR5 ‘WRITE OR READ OPERATION? 

2268 011006 001003 BNE WRITE 

2269 011010 012704 000002 MOV #SFTRD,R4 *READ 

2270 011014 000402 BR 

2271 011016 012704 000004 4$: MOV WSF TWR,R4 :WRITE 

2272 011022 004737 012046 5$: CALL LOG 

2273 011026 005065 000002 CLR RETRY(RS) :RESTORE TO NORMAL STATE 

2274 011032 042715 002200 BIC #B1T10'BIT7,a@RS :NO RETRY, NORM THRESHOLD 


SEQ 53 


om 
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$3? 011036 000501 BR 
2277 011040 000240 


UNSUC: NOP 
2278 011042 032715 001000 BIT 
2279 011046 001015 BNE 
2280 011050 PRINTB 
2281 011070 005065 000002 LR 
2282 011074 042715 002200 BIC 
2283 011100 000460 BR 
2284 011102 023765 003322 000002 2%: CMP 
2285 011110 001425 BEQ 
2286 011112 005265 000002 C 
2287 011116 PRINTX 
2288 011142 032715 000200 BIT 
2289 011146 001403 BEQ 
2290 011150 042715 000200 BIC 
2291 011154 000432 BR 
2292 011156 052715 000200 1$: BIS 
2293 011162 000427 BR 
2294 011164 000240 HRD1: NOP 
2295 011166 PRINTX 
2296 011206 032715 000400 T 
2297 011212 001003 BNE 
2298 011214 012704 000016 MOV 
2299 011220 000402 BR 
2300 011222 012704 000020 4$: MOV 
2301 011226 004737 012046 5$: CALL 
2302 011232 005065 000002 CLR 
osbz 011236 042715 002200 BIC 
2305 011242 042737 000002 003300 CHKRET: BIC 
2306 011250 042715 000100 BIC 
2307 011254 POP 
2308 011256 POP 
2309 011260 000207 RETURN 
33 
2312 011262 045 101 122 RECOV: .ASCIZ 
2313 ~EVEN 
2314 011342 045 101 040 THRSLO: .ASCIZ 
2315 -EVEN 
2316 011370 045 101 040 THRSHI: .ASCIZ 
2317 -EVEN 
2318 011422 045 101 122 RTRYN: .ASCIZ 
2319 -EVEN 
2320 011442 045 101 125 UNREC: .ASCIZ 
2321 ~EVEN 
2322 011464 045 101 117 RETERR: .ASCIZ 
2325 ~EVEN 


SEQ 54 


CHKRET sQUIT 
sRETRYING; SEE IF HARD YET 


lant 3TU DATA CHECK ERROR? 
#MRETERR ;NO="‘OTHER-ERROR" ERROR 


RETRY(RS) zNO RETRIES 
rt Sa NO RETRY, NORM THRESHOLD 


sEX 
MXRTRY RETRY (RS) vines: DID WE GRADUATE TO HARD? 
RETRY(RS) ‘NO. JUST ANOTHER 
#RTRYN,RETRY(R5S) ;PRINT OUT 
#BIT7,aR5 :WAS NORMAL THRESHOLD? 


1 :YES-REDUCE GAI 
#B1T7,aR5 3NO-NORM 
CHKRET 
#B1T7,aR5 sREDUCED 
CHKRET :DON 

sHERE IS HARD ERROR! 
#UNREC 
#B81T8,aR5 zRD OR WR? 
4$ sWRITE 
#HRDRD,R4 :READ 

:LOG_IT 
ne sWRITE 


;LOG IT 
RETRY(RS) sBACK_TO NORMAL 
#BITIO!BIT7,AR5 ;NO RETRY, NOT REDUCED 


#B1T1,SYSTAT NO SYSTEM RETRY NEXT PASS 
#B1T6,aR5 NO MORE HOST DATA CHECK ERROR 


R 
RO 


/ZARECOVERED FROM DATA CHECK ERROR RETRY # %D1%N/ 
/%A NORMAL THRESHOLDZN/ 

/%A MODIFIED THRESHOLD %N/ 

/ZARETRY # ZD12N/ 

/ZAUNRE COVERABLEZN/ 

/ZAOTHER ERROR DURING RETRY : EXIT RETRYZN/ 


1 
| 
| 
| 
| 


A NS on — — = - ra 


5 | 
‘ SEQ 55 
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r 
CHKSUC / INTERPRET SUCCESS CODE / if 


2326 .SBTTL CHKSUC / INJERPRET SUCCESS CODE / | 
2328 3+ 
2329 2 CHKSUC = COPY SUCCESS CODE (BYTE) TO SUCCS*1(R5). INTERPRET SUCCESS 
2330 : DJF NOT 0, LOG APPROPRIATE ERROR. 
| 39331 : INPUTS: 20 POINTS TO"END PACKET. 
| 2332 : @R5 = UNIT STATUS WORD 
2333 : ONDSNTINS) = COMMAND BYTE 
2335 : OUTPUTS: R4 1S ERROR NUMBER IF ERROR. 
2336 : SUCCS(RS5) UPDAT 
3337 : BITS ORS SET ON DATA CHECK SUCCESS CODE 
2339 . 
2340 011536 000240 CHKSUC:: NOP 
3341 011540 016065 000002 000076 MOV 2(RO),SUCCS(RS) :RO==>END PACKET 
2342 011546 122760 000000 000003 CMPB s- #ESOK, 3(RO) GET SUCCESS BYTE 
2545 011554 001533 BEQ 12$ SCOMPLETE SUCCESS-EXIT 
2345 011556 122760 000001 000003 CHPB HESTRY,3(RO) 0K BUT RETRIES? 
2346 011564 001012 BNE $ 
3347 011566 126527 000100 000002 CMPB ss CMDSNT(RS), wrssrb: A READ? 
2348 011574 001001 BNE 22$ :NO 
2350 011576 000516 BR 10$ :NO RETRIES IN MAINTENANCE 
2351 011600 126527 000100 000003 22$:  CMPB § CMDSNT(RS) ,#RSSwWR WRITE? 
5352 011606 001001 BNE 208 :NO 
2353 011610 000511 BR 10$ LOG IT 
2354 011612 122760 177737 000003 20$:  CMPB  #ESNOMO,3(RO) :NO MOTOR? 
2355 011620 001003 BNE 1 :NO 
2356 011622 012704 000030 MOV —s #NOMOT,.RG :YES= 
2357 011626 000504 BR 11$ :LOG 
2359 011630 122760 177757 000003 1S: CMPB s WESCKS,3(RO) —s«; "DATA CHECK’ ERROR? 
2360 011636 001003 BNE : 
2361 011640 052715 001000 BIS #B1T9,aR5 SET DATA=CHK-ERROR FLAG 
2362 011644 000477 BR 12$ “DONT LOG 
5364 011646 126527 000100 000007 28: CMPB  CMDSNT(RS),#RSSSLF SELF TEST? 
2365 011654 001006 BNE $ ; NOP 
2366 011656 105760 000003 TSTB  —-3(RO) YES, NEG. IF ERROR 
2567 011662 100070 BPL 12$ 0K 
2369 011664 012704 000044 MOV —s WSLFER.R4 : YES=ERROR 
2370 011670 000463 BR 11$ :LOG IT 
2372 011672 122760 177740 000003 38: CMPB Ss #ESSK,3(RO) SEEK ERROR? 
5373 011700 001003 BNE :NO 
2374 011702 012704 000024 MOV —s #SKERR, RG :YES= 
2375 011706 000454 BR 11$ :LOG 
5377 011710 122760 177767 000003 4$: CMPB = #ESNCRT,3(RO) = ;NO CART? 
5378 011716 001003 BNE 5 :NO 
2379 011720 012704 000054 MOV —sNCART.R4 :YES= 
2380 011724 000445 BR 11$ L0G 
5382 011726 122760 177720 000003 5S: CMPB = #ESCMD,3(RO) NO UNDERSTAND HOST? 


lcusathiaeataataatieheaaime 


GLOBAL AREAS 
CHKSUC / I 
2383 011734 
2384 011736 
2385 011742 
2386 
2387 011744 
2388 011752 
2389 011754 
2390 011760 
2391 
2392 011762 
2393 011770 
2394 011772 
2395 011776 
2396 
2397 012000 
2398 012006 
2399 012010 
2400 012014 
401 


1 
2405 012032 


2409 012044 
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NTERPRET SUCCESS CODE / 


001003 
012704 
000436 


122760 


000402 


012704 
004737 
000207 


000040 


177770 
000036 


177765 
000026 


177776 
000034 


177711 
000042 


000046 
012046 


000003 


000003 


000003 


000003 


6$: 


7$: 


8$: 


9$: 


—— 
Nm-o 
AMM 


MOV 
CALL 
RETURN 


6$ 
#CHNDER ,R4 
11$ 


- eencesantmee 
#NOUNIT,R4 
11$ 


#ESWLOC, 3(RO) 
#WRLOCK ,R4 
11$ 

#ESPART, 3(RO) 
#PARTL,R4 
11$ 
#ESREC,3(RO) 
#RECERR,R4 
11$ 


#SUCOTL ,R4 
LO 


SEQ 56 


NON EXISTENT UNIT? 
:NO 


:YES= 
‘LOG 


sWRITE LOCKED? 
3NO 

7YES- 

:LOG 

sPARTIAL OP? 
;NO 


YES= 
‘LOG 


WRONG RECORD? 
ZYES- 

; UNDEF INED 
LOG ERROR 
"RETURN 


SEQ 57 
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LOG / TO LOG ERROR IN CORRECT PLACE 


2412 .SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 
2414 7+ 
| 2415 2 Loc - DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
2416 ; BY INDEX (ERROR #) INTO DEVICE DATA BLOCK. ADD THE DRIVE # TO 
2417 : INDICATE UPPER OR LOWER BYTE AND INCREMENT THAT ERROR UNLESS 
2418 : THAT BYTE WOULD OVERFLOW. DETERMINE IF EVL FLAG SET,AND IF SO, 
| 2419 ; CHECK THRESHOLD (EVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
| 2420 ; DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
2421 : INPUTS: R4& = ERROR CODE 
2422 + OUTPUTS: ABNDX(R5) = ERROR CODE. 
2623 ; DLV ( 
| 2626 ; LSLUN = UNIT NUMBER 
2425 i-- 
| 2626 
| 3427 012046 LOG:: PUSH RO 
| 2428 012050 PUSH = R1 
| 2629 012052 PUSH RS 
3630 012054 PUSH = RG 
| 2432 012056 011537 002074 MOV ar5,L$LUN :GET UNIT NUMBER 
2433 012062 042737 177770 002074 BIC #177770,L$LUN :MASK IT OFF 
2434 012070 010465 000004 MOV R4,ABNDX (RS) + SAVE INDEX IN CASE OF ABORT MESSAGE 
2435 012074 012703 000120 MOV #LGOFST,R3 [OFFSET TO LOW ORDER BYTE (DRIVEO) 
2436 012100 060403 ADD R4,R3 [FORM INDEX OF PARAM. TO UPDATE 
2437 012102 060503 ADD RS,R3 ;FORM ABSOLUTE ADDR. THIS UNIT 
2438 012104 004737 013052 CALL WHCHDR SEE WHICH DRIVE T'W 
2439 012110 103001 BCC 2$ [WAS DRIVE 0 
j 2440 012112 005203 INC R3 ‘DRI VE 1; POINT TO UPPER BYTE 
2441 012114 122713 000377 , 2$: CMPB ss #255.,aR3 ‘POTENTIAL OVERFLOW POSSIBLE? 
2442 012120 001005 BNE LOGOK : 
2443 012122 LOGO: ERRDF 0.,OVRFLO,ERRDES ;YES 
2444 012132 000512 BR ABO UNIT 
2445 012134 105213 LOGOK: INCB  aR3 : INCREMENT THE ERROR 
2446 012136 111304 MOVB @R3,R4 S TEMP LY Y SAVE IT 
2447 012140 016503 000004 MOV ABNOX(RS).R3 -:GET INDEX AGAIN 
2448 012144 012701 002220 MOV SN Ri FORM ae OF MSG 
2449 012150 066501 000004 ADD ABNDX(RS), R1 ‘LIKE THIS 
2450 012154 042701 000001 BIC TO,R1 s INSURE WORD BOUNDARY 
2451 012160 032737 000004 016154 BIT #EVL,FLGLOC 3EVL SELECTED? 
2452 012166 001414 BEQ LOGOK2 O-CONT 
2453 012170 123704 002216 CMPB EVLTHR,R4 :YES,OVER THRESHOLD? 
2454 012174 101011 BHI LOGOK2 ; 
2455 012176 010337 012210 MOV RS DFTL1#2 SYES,LOAD ERROR # 
2456 012202 011137 012212 MOV ari, DFTL1+4 “AND MESSAGE ADDR 
2457 012206 DFTL1: ERRDF 0,DFTL1,ERRDES ERROR 
2458 012216 000460 BR 0 ‘DROP IT 
2459 012220 120327 000014 LOGOK2: CMPB R3,#BDCOM S "NEVER FATAL' TYPE? 
2460 012224 103011 BHIS  NTSFT NO 
2461 012226 010337 012240 V R3,LOG1+2 SYES, ERROR CODE 
2462 012232 011137 012242 OV aRi,LOG1+4 [DESCRIPTION 
2463 012236 LOG]: ERRSOFT 0..L0G1,ERRDES 
3464 012246 000450 LOGO sEXIT 
| 5466 012250 120327 000026 NTSFT: CMPB 3, #WRLOCK ZONE T 
2467 012254 103411 BLO NO, MAYBE A MULTIPLE 
| 2468 012256 010337 012270 MOV R3,LOG2¢2. tyes 
| 
| 


GLOBAL AREAS MACRO M1200 15=DEC=82 12:54 


om / TO LOG ERROR IN CORRECT PLACE 
$n? 012262 011137 012272 


2470 012266 

sto) 012276 000430 

2473 012300 042704 177400 
2474 012304 163704 003312 
2475 012310 001413 

2476 012312 103401 

oot 012314 000773 

2479 012316 010337 012330 
2480 012322 011137 012332 
2481 012326 

2482 012336 000414 

2483 012340 010337 012352 
2484 012344 0111357 012354 
2485 012350 

2486 

2487 012360 011500 

2488 012362 042700 177770 
2489 012366 

2490 012370 

2491 012372 

2492 012374 

2493 012376 


2494 012400 000207 


[—- 


LOG2: 


MABEE : 
1$: 


SFT: 
LOG3: 
HRD: 


LOG3B: 


ABO: 


LOGO: 


PAGE 84-1 
MOV 
ERRHRD 
BR 
BIC 
SUB 
MOV 
MOV 
ERRSOFT 
BR 


MOV 
MOV 
ERRHRD 


RETURN 


ari. LOG2+4 

0,LOG2,ERRDES ;PRINT HARD MESSAGE 
ABO :DROP UNIT 
#177400,R4 ZNEGATE SIGN EXTEND 
FTLNM,R& :SEE IF MULTIPLE OF 
kK sFTLNM-YES! 
SFT iN 
1$ SNOT THERE YET 
R3,LOG3+2 ZERROR CODE 
ari, LOG3+4 :DESCRIPTION 
0, ,LOG3,ERRDES nav 
R3,LOG3B+2 SHARD ERROR CODE 
ari, LOG3B+4 ‘DESCRIPTION 
0,L0G3B,ERRDES 
ar5,R0 :GET UNIT NUMBER 
#177770,R0 ;UN-SIGN EXTEND 
RO TUSE LOGICAL # TO DROP 
R4 sRESTORE 
R3 
R1 
RO 


;RETURN 


SEQ 58 


poo 


‘GLOBAL AREAS 


(LOG / TO LOG ERROR IN CORRECT PLACE 


2497 

2498 

2499 

2500 

2501 

2502 012402 
2503 012402 
2504 012404 
2505 012406 
2506 012410 
2507 012414 
2508 012416 
2509 012420 
2510 012456 
2511 012462 
2512 012466 
2513 012530 
2514 012534 
2515 012536 
2516 012562 
2517 012566 
2518 012570 
2519 012572 
2520 012574 
2521 

$256 012654 
252 

2524 012746 
2525 

2526 013030 
2527 
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005002 


005202 


016500 
016502 


005765 
001414 


005065 


045 
045 
103 
045 


000020 


000064 
000072 


000074 


000074 


101 
101 
101 
101 


104 
102 
116 
040 


2$: 


3$: 


UNIT:: 


RECID:: 7 
OVRFLO: A 
RECID2: . 


ptt 
; ERRDES = CONTAINS CODE FOR EXTENDED ERROR INFORMATION: 
BLUCK #, ETC. 


DRIVE #, 


ERRDES sERROR DESCRIPTION 
R2 

R2 ;PRESET TO DATA TYPE 
#BIT4,aRS SWHAT PACK TYPE? 

2$ DATA 

2 : COMMAND 
#UNIT,<B,DR(RS)>.R2,<B, SYSTAT+1> 

REC (RD) RO SRECORD NUMBER 
PATTEN(RS) ,R2 :DATA EXPECTED 
#RECID,RO,<B, CHDSNT(RS)>, <B,R2>,<B, SUCCS+#1(R5)> 
DLVCRS) ;DLV ERROR? 
PRECID2,DLV(R5) ZYES=PRINT 

DLV(RS) SRESET 

Re SRESTORE 


sEXIT 
/ZADRIVE# %01%A PAK SENT %01%A FLAG RCVD %032N/ 


/%ZABLOCK# %04%A COMMAND %02%A EXPCTD %03%A SUCCESS %03%N/ 
/CAN'T UPDATE ERROR OR STATISTIC:OVERFLOW PENDING/ 


/%A RCDB WAS %062N/ 


SEQ 59 


| GLOBAL AREAS 


013052 


013054 
013060 
013062 


Pee unmuaunanns 
eT tet et ret 


Aah hh he ee eh ot ot 


| 
| 
42 01306 
2544 013064 


MACRO M1200 LF 12:54 PAGE 88 
WHCHDR / SEE WHICH DRIVE IS ACTIVE 


000241 
105765 
001401 
000261 


000207 


000060 


-SBTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 


j++ 
3 INPUTS: DR(RS) 
3; OUTPUTS: CARRY=DRIVE (1 OR 0) 


WHCHDR:: CLC CLEAR CARRY 
TSTB DR(RS) sDR 0? 
BEQ 2$ aves 


2s: RETURN RETURN 


SEG 60 


ee nr ey 


—_ 


‘GLOBAL AREAS | MACRO M1200 15=DEC-82 12:54 PAGE 90 
(CHKSUM / FORM THE PACKET CHECKSUM 


6 
66 013114 006001 
2 013116 005003 
300 013120 062003 


2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 013066 

2560 013070 

2561 013072 042737 
2562 013100 032701 
2563 013104 001403 
$200 013106 052737 
25 

25 

25 

256 

2 

2 

2 

2 


001374 


Ww for 


2574 
2575 032737 
2576 001405 


005503 
010301 


Oumuvi vecsy 
OAOsNM OGNMOAO AL 
S 
S 
Nm 
N“N 
So 
Nm 


000207 


000001 
000001 


000001 


000001 


177400 


| 

| 
2579 
2580 
2581 
2582 
2583 
2584 
2585 


003300 


003300 


003300 


~SBTTL CHKSUM / FORM THE PACKET CHECKSUM 


++ 
THE CHECKSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 


: OUTPUTS: RO => WHERE 


CHKSUM: : 


1$: 
2$: 
3$: 


4$: 


R1 = CHECKS 
PUSH R3 
PUSH —R2 
BIC #BITO,SYSTAT 
BIT #BITO.R1 
BEQ 1 
BIS #BITO,SYSTAT 
ROR R1 
CLR R3 
ADD (RO)+,R3 
ADC R3 
DEC R1 
BNE 3$ 
BIT #BITO,SYSTAT 
BEQ 
MOVB  (RO)+,R2 
BIC #177400,R2 
ADD R2,R3 
ADC 
MOV R3,R1 
POP R2 
POP 
RE TURN 


: INPUTS: RO => (POINTS TO) TOP OF PACKET 
; Rl = # OF BYT 
: ye PUT CHECKSUM 


"CHECKSUM IS ODD" BIT 
zAN ODD # OF BYTES? 


2NO 

7 YES 

3/2 FOR WORDS 

PREP CHECKSUM WORD 


FORM SUM 
WITH CARRY 
MORE WORDS? 
> YES 


WAS IT ODD 
NO 


:YES GET NEXT BYTE 
[UN=SIGN EXTEND 


SAND CARRY JUST IN CASE 
;RETURN IT IN CORRECT PLACE 
“RESTORE 


RETURN 


SEG 61 


‘GLOBAL AREAS 
pn / MODULE TO CHECK THE CHKSUMS 


2606 
2607 013174 
2608 013176 


2609 - 
2610 013200 
2611 

2612 013202 
2613 013204 
2614 013206 
2616 013219 


2618 013212 
2619 





SEQ 62 
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010401 
004737 


122001 
001005 


000301 
122001 
001002 
000241 
000401 


000261 


000207 


013066 


~SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 


$ WAKE SURE THE oe ay RECEIVED = THE CHECKSUM CALCULATED. 

; INPUTS: R4 = THE PACKET op A COUNT 

3 RO => THE PACKET T 

3; OUTPUTS: CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
; RO => THE PACKET T 


CKCKSM:: PUSH R1 
PUSH RO 
MOV R4,R1 


3 SAVE 
;COPY BYTE COUNT TO CORRECT 
CALL CHKSUM AND 


ZREGISTER FOR CHKSUM A 
FORM CHECKSUM 
zHERE RO ==> XMITTED CHKSUM, R1=CHKSUM CALC'D 


CMPB (RO)+,R1 LOWER ORDER CHECK 


BNE 2$ 3; WRONG 
SWAB R1 ;OK=-PREP FOR 
CMPB (RO)+,R1 sHIGH ORDER CHECK 
BNE 2$ WRON 
CLC sOK-CLEAR SAILING 
BR 3$ EXIT 
2$: SEC ;LET ERROR BE KNOWN 
3$: POP RO 
POP R1 
RETURN RETURN 





SEC 63 


GLOBAL AREAS MACRO_M1200 15=DEC=82 12:54 PAGE 94 
‘DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 


2626 .SBTTL DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 
2628 i++ : Ps 
2629 ; DOBRK = SEND RADIAL SERIAL “'BREAK'’ TO DEVICE: 

2630 : = SET "BREAK ON INTERFACE. 

2631 : - SEND + NULLS 

2632 ; - CLEAR BREAK ON INTERFACE 

2633 : = SET VECTORS FOR RCV AND XMIT 

2634 ; - SEND 2 BYTES OF “IN 

2635 : = RECEIVE ‘CONTINUE 

26 : ~ IF RECEIVE GARBAGE OR TIMEOUT = ERROR 

2637 : = CLEAR INTERRUPTS AND VECT ORS 

2638 + INPUTS: @R5 BIT14 WAS SET = (SEND BREAK) 

2639 : OUTPUTS: ane BIT14 CLEAR IF SUCCESSFUL INIT. 

2640 : SYSTAT+1 = RECEIVED BYTE 

2641 : ERRORS R4 = ERROR CODE: 

2642 : = SEND NOT RCADY TIMEOUT (TOSNDB) 

2643 : - NO RESPONSE 

2644 3 - DLV ior 

2645 ; - CAN'T INIT 

sees tg 

2648 013222 105037 013755 DOBRK:: CLRB INITWD+1 CLEAR BYTE RECEIVE ADDR 
2649 013226 005037 013756 CLR BRK CLEAR TIME OUT CONSTANT 
2650 013232 052775 000001 000026 BIS oR TTO.@XMSR(RS) SET "BREAK 

651 013240 012765 000001 000100 MOV #RSSNIT, Papsn ends SAY “We SENT "INIT® 
652 013246 052715 000020 BIS #B1T4,aR5 3PAK SENT TYPE = COMMAND SORT OF 
2653 013252 012704 000010 MOV #8. RG SBREAK-IT'S=BACK COUNT=8 
2654 013256 1$: BREAK s SUPERVISOR TAKE FTE. 
2655 [FOR “C CHECK, ETC. 

2656 013260 105775 000026 TSTB — @XMSR(RS) SREADY? 

2657 013264 100410 BMI 4 :Y 

2658 013266 005337 013756 DEC BRKTO :NO,TIME OUT? 

2659 013272 001371 BNE NO 

2660 013274 012704 000056 MOV #TOSNDB,R4 SYES, SET ERROR CODE 
2661 013300 004737 012046 CALL LOG [LOG IT 

2662 013304 000535 BR § EXIT 

2663 013306 113775 013752 000030 4$: MOVB — BRKWD,@XMDB(RS) SEND NULL 

2664 013314 005037 013756 CLR BRKTO “RESET Tf ME OUT 

2665 013320 005304 DEC R4 ‘MORE NULLS TO SEND? 
2666 013322 001355 BNE 1$ :Y 

2667 :VER:1 CLR @XMSR(R5) [NO, CLEAR "BREAK* 

2668 013324 005375 000026 DEC aXMSR(R5) [NO, CLEAR ‘BREAK’ ;;VER:1 
2669 013330 017500 000024 MOV @RCDB(R5),RO  :HEAVE ‘GARBAGE’ 1ST BYTE 
2670 013334 SETPRI #PRIOO *SET TO INTERRUPT FO SUR 
2671 013342 SETVEC TUVECT(RS) #RCVINT, #PR106; SET VECTO INFO :VER:1 
2672 013370 062765 000004 000204 ADD #4, TUVECT(R5)—; TO SN 

2673 013376 SETVEC TUVECTIRS) @SNDINT #PRIO6; AND SET IT:VER:1 
2674 013424 162765 000004 000204 SUB #4,TUVECT(RS) RESET VECTOR ADDR. 

2675 013432 005037 013756 CLR BRKTO SRESET TIME OUT 

2676 013436 012704 013754 MOV #INITWD,R4 SUSE ADDR. -60R, SNDBYT 
2677 013442 010437 013760 MOV R4,BRKPTR SAND SAVE FOR "WAIT 

2678 013446 052775 000100 000026 BIS #BIT6,aXMSR(RS) :ENABLE INTER. 

2679 013454 004737 013716 CALL WAIT SAND ENTER LOOP 

2680 013460 005715 TST aR5 SABORTED FROM TIME OUT? 
2681 013462 100446 BMI 3$ SYES@EXIT 





SEC 64 
oo AREAS MACRO M1200 15-DEC=82 12:54 PAGE 94-1 
MODULE TO 


DOBRK / LE INIT TUS8 AND TEST INTERRUPTS 
2683 013464 005037 013756 CLR BRKTO sRESET TIME OUT 
2684 013470 012704 013754 MOV #INITWD,R4 3SEND SECOND INIT 
2685 013474 010437 01376 MOV R4,BRKPTR sSAVE POINTER AGAIN 
2686 013500 052775 000100 000026 BIS #BIT6,aXMSR(R5S) ;AND Mey ENABLE INT 
2687 013506 004737 013716 CALL WAIT AND WAIT 
2688 013512 005715 TST aR :1F ABORTED 
$o85 013514 100431 BMI 3$ ;THEN EXIT 
2691 013516 012704 013755 MOV #INITWD+1,R4 wen RESPONSE WILL GO (ADDRESS) 
2692 013522 010437 013760 MOV R4,BRK FOR ‘WAIT’ 
2693 013526 052775 000100 000022 BIS #B1T6,@RCSR(RS) PENABLE RECIEVE INT. 
2694 013534 004737 015716 CALL WAIT GET ANSWER 
2695 013540 005715 TST aR5 sABORTED? 
3344 013542 100416 BMI 3$ 3 YES. 
2698 013544 123727 013755 000020 CMPB INITWD+1,#RSCONT ;NO, IS IT ‘CONTINUE’? 
a4 013552 001003 BNE 2$ ;NOPE-ERROR 
t 
2701 013554 042715 040000 BIC #B1T14,aR5 sSUCCESSFUL, CLEAR DOBREAK FLAG 
soe 013560 000407 BR 3$ sEXIT 
2704 013562 113737 013755 003301 2$: MOVB INITWD+1,SYSTAT+1 > SAVE _BUM RESPONSE 
2705 013570 012704 000032 MOV #CNINIT,R4 :CAN'T INIT CODE 
2706 013574 004737 012046 CALL LOG ;LOG_IT 
144 SCHEDULER WILL TRY AGAIN IF NOT ABORTED 
2709 013600 042775 000100 000026 3$: BIC soiree @XMSR(RS) ‘ey INTERRUPTS 
2710 013606 042775 000100 000022 BIC #BIT6,ARCSR(RS) ; FOR RECIEVE 
2711 013614 CLRVEC TUVEC CT(RS) ‘RELEASE pit ge VECT. 
2712 013622 062765 000004 000204 ADD #4, TUVECT(RS) $AND GET SEND ADDR. 
2713 013630 CLRVEC TUVECT(RS) AND RELEASE IT 
2714 013636 162765 000004 000204 SUB #4, TUVECT(RS) SRESTORE POINTER 
2715 013644 000207 RETURN 3RETURN 





2 
wh 
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INTERRUPT SERVICE ROUTINES AND TIMER 


orig -SBTTL INTERRUPT SERVICE ROUTINES AND TIMER 
sise 013646 BGNSRV SNDINi 3""SEND’* INTERRUPT SERVICE: 
2722 013646 042775 000100 000026 SNDHND: BIC #B1T6,AXMSR(RS) ;DISABLE INTERRUPT 
2723 0135654 112475 000030 MOVB (R4)+,@XMDB(R5) OUTPUT BYTE 
2724 013660 ENDSRV 
2725 
2726 
2727 
$768 013662 BGNSRV RCVINT 3""RCV"' INTERRUPT SERVICE: 
730 013662 042775 000100 000022 RCVHND: BIC #BIT6,ARCSR(RS) ;DISABLE INTS 
731 013670 017565 000024 000074 MOV ARCDB(RS) ,DLV(RS) sSAVE BYTE 
2732 013676 116524 000074 MOVB DLV(R5),(R4)+  ;BYTE TO BUFFER 
2733 013702 005765 000074 TST DLV(RS5) ERROR? 
2734 013706 100402 BMI 10$ 7YES 
2735 013710 005065 000074 CLR DLVC(RS) NO CLEAR ERROR 
2736 013714 10$: 
et 013714 ENDSRV A : 
3740 
2741 013716 000240 WAIT: NOP WAIT LOOP FOR 
2742 z INTERRUPT SERVICING 
2743 013720 020437 013760 CMP R4,BRKPTR iIF=, THEN NO INTERRUPT 
2744 015724 001011 BNE 1$ GOT : 
2745 013726 BREAK s SUPERVISOR BREAK 
2746 013730 BREAK KILL SOME TIME 
2747 013732 005337 013756 DEC BRKTO : TIME at 
2748 013736 001367 BNE WAIT 
2749 013740 012704 000050 MOV #TORCVB,R4 ves” iOAD TERROR # 
2750 013744 004737 012046 CALL LOG . LOG IT 
shes 013750 000207 1$: RETURN RETURN 
2753 013752 000000 BRKWD: .WORD 0 éNULL 
2754 013754 004 INITWD: .BYTE RSINIT INIT COMMAND 
2755 013755 000 -BYTE 0 ;RSCONT is EXPECTED HERE 
2756 013756 000000 BRKTO: .WORD 0 :T 
2757 013760 000000 BRKPTR: .WORD 0 POINTER. TO INITWD 





SEQ 65 





eee ee 





B 6 
SEC 66 
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COMPAR/DATA COMPARISON MODULE 
3760 .SBTTL COMPAR/DATA COMPARISON MODULE 
2762 3+ 
2763 : COMPAR - IF “COMPARE DATA SELECTED, COMPARE EACH DATA BYTE OF PACKET 
2764 : TO PATTEN(R5S). SAVE NUMBER OF pues NOT CORRECT. IF NOT 
2765 : D PRINT SOFT ERROR AND TOTAL @# WRONG BYTES. SET "BAD_DATA 
2766 : IN PACKET. BIT (BIT6 aR5) FOR HIGHER LEVEL MODULES. 
2767 : INPUTS: = TCMPDAT) FLAG TO NOT COMPARE (=1) 
2768 : = PRPTRERS) POINTS TO DATA PACK. 
2769 : OUTPUTS: BIT6 aRS (BAD DATA Feag) ADJUSTED. 
2770 ; LS$LUN = UNIT NUMBER 
2771 : BRNEIZ - SIZE “OF PACKET 
ae: cal 
2774 013762 COMPAR:: PUSH RO :COMPARE DATA IS DATA PACKET 
2775 013764 PUSH R4 :T0 PATTERN WRITTEN 
2776 013766 PUSH [USING BYTE COUNT IN PACKET 
2777 013770 005037 014140 CLR BDBYTS [CLEAR TOTAL WRONG 
2778 013774 016504 000104 MOV PKPTR(RS),R4 | :GET TOP OF PACKET 
2779 014000 005737 002212 TST CMPDAT ;COMPARE SELECTED? 
2780 014004 001451 BEQ sNO=EXIT 
2781 014006 005204 INC R 3YES, LOCATE COUNT 
2782 014010 111401 MOVB = aks, R1 IT 
2783 014012 042701 177400 BIC #177400,R1 : SIGN-UNEX XTEND 
2784 AUST TEST BYTE~WISE... 
2785 014016 005204 INC R4 >FIRST DATA BYTE 
2786 014020 126524 000072 1$: CMPB s«PATTEN(R5),(R4)+" :DATA-WHAT WAS EXPECTED? 
2787 014024 001402 BEQ : 
2788 014 005237 014140 INC BDBYTS =NO, INCREMENT TOTAL WRONG 
2789 014032 005301 2$: DEC R1 sMORE LEFT? 
2790 014 001371 BNE 1$ YES 
2791 014036 005737 014140 TST BDBYTS ZANY WRONG? 
2792 014042 001432 BEQ 4$ 
2793 014044 011537 002074 MOV aR5,LSLUN GET UNIT NUMBER 
2794 014050 042737 177770 002074 BIC #177770,L$LUN :MASK IT OFF 
2795 014056 ERRSOFT 0.,MSBDA,ERRDES ;YES=PRINT "BAD DATA IN PACKET’ ERROR 
2796 014066 PRINTB #DESC,BDBYTS 
2797 014112 052715 000100 BIS #B1T6,aR5 :LET "EM KNOW, UPSTAIRS~BAD DATA FLAG 
2798 014116 012737 000204 003330 MOV #132. ,PRNSIZ ;S1ZE IS ONE DATA PACK 
2799 014124 004737 014176 CALL PRNPAK AND PRINT THE MACKEY 
2800 014130 4$: POP R1 SRESTO RE 
2801 014132 POP R4 
2802 014134 POP RO 
2804 014136 000207 RETURN 
2806 014140 000000 WORD 


BDBYTS: 


2807 014142 045 101 124 DESC eASCIZ /%ATOTAL BAD BYTES= %D3%A.2N/ 
2808 EVEN 


oe 


4 2 


SEQ 67 


|GLOBAL AREAS MACRO _ M1200 V7epe C82 12:54 PAGE 100 
|PRNPAK/MODULE TO PRINT DATA PACKET 


seit ~SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 

2815 ‘+ 

2814 : PRNPAK - IF PRINT DATA_PACK_ON_ERROR SELECTED: PRINT EACH BYTE OF PACKET 
2815 3 TO BY PKPT 

2816 > INPUTS: PRNSIZ = # OF BYTES IN PACKET. 

2817 : OUTPUTS: NONE 

at ; 

2820 014176 000240 PRNPAK:: NOP sPRINTS 1 PACKET 

2821 ;PKPTR(R5)=>TOP OF PACKET 
2822 ;PRNSIZ (PASSED)=BYTE COUNT 
2823 014200 PUSH 7 

2824 014202 PUSH 

2825 014204 105737 002210 TSTB PRAUF sPRINT PACKET SELECTED? 
2826 014210 001451 BEQ 4 :NO 

2827 014212 6504 000104 MOV PKPTR(RS) ,R4 ;YES-GET TOP OF PACK 
2828 014216 012737 000020 014342 1$: MOV #16. ,LNCNT 716 BYTES PER LINE 

2829 014224 112437 014344 2$: MOVB (R4)+,PRDAT AVOID SIGN EXTEND 

2830 014230 PRINTF #PRFORM,<B,PRDAT> ;PRINT BYTE 

2831 014256 005337 003330 DEC PRNSIZ ONE LESS 

2832 014262 001414 BEQ 3$ NO MORE 

2833 014264 005337 014342 DEC LNCNT NEW LINE? 

2834 014270 001355 BNE 2$ sNOT YET 

2835 014272 PRINTF #CARLF zYES 

2836 014312 000741 BR 1$ 7NEXT LINE 

2837 014314 3$: PRINTF #CARLF FINISH UP 

2838 014334 4$: POP R4 

2839 014336 POP RO 

cacy 014340 000207 RETURN ;RETURN 

2842 014342 000000 fo et b «WORD 

oot? oleate 000000 PRDAT: .WORD 


14346 045 117 063 PRFORM: -ASCIZ /%03%A / 
2846 014356 045 116 000 CARLF: <ASCIZ /%N/ 
2847 VEN 


2848 
2849 014362 ENDMOD 
2850 


— 2 


weer 


a 
iPR 
| 


MIS 
PRN 


2863 
2864 


2 
2855 014362 
94 


2915 01445 


4464 


Oo 
~m 


pe pone por eee Peer Per er Par Pers 
OeVawWE Oo 


Wron— 


set 014670 
2939 014674 


2942 014756 
2945 

2944 014764 
294 

2946 014770 


012737 


NOANMAMANM— —frn 
Vin 

oo 

WWW 


Fokakatakhe Sas 
tres 

N 

oo 

2 = 


042704 


023727 
103005 
062737 


000137 


003340 
000332 
004000 


015006 
eres 


177400 


000123 


177400 


015010 
000002 
014450 


015010 


015006 


003356 2$: 


015010 


CELLANEOUS SECTIONS MACRO aleve 15=DEC=82 12:54 PAGE 101 
PAK/MODULE TO PRINT DATA PACKE 


-TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


en 


BGNMOD 


; THE REPORT CODING SECTION CONTAINS THE 
: __PRINTS™ CALLS THAT GENERATE STATISTICAL REPORTS. 


1$: 


3$: 


BGNRPT 
H 


RO 
R1 
R2 
R3 
RG 
R5 
WBLKTBL,RPTR GET 1ST DEVICE BLOCK 
#STATHD sHEA EADER 
#STHD2 £ 2h HEADER 
=“C CHECK 
@RPTR,RS :GET DEVICE BLOCK 
#B1T11,aR5 ‘UNIT NOT TESTED? 
2$ STRUE, DON'T PRINT STATISTICS 
:0K TO PRINT 
ar5,RLUN SSAVE STATUS WORD 
#177770,RLUN | :MASK UNIT NUM, 
SOFTR(R5),R1 SOF TREAD 
400,Ri 7 SIGN-UNEXTEND 
SOFTW(R5S),R2 :SOFT WRITE 
400,R2 : 
HARDR(R5),R3 =: HARD READ 
400,R3 : 
HARDW(R5) RG ;HARD WRITE 
#177400, Rb 


= 
= 


MO,R SSUMMARY/UNIT # 
#FM, Py URTNOCRS) *RDNO(RS) ,<B,BDATA(R5)>,R1.R2,R3,R4 
SOF TR+1 (RS SAME 

#177400 yt AS 
SOF TW+1(R5), R2 ;ABOVE 

#177400,R HIS 
HARDR® (RS). oR3 TIME 


R sFOR 
HARDW+1(R5), R4 ;DRIVE 
#177400,R4 3 ONE 


#FM,#i ,SRTNICRS) ,RDNI(RS), yO | selma oR1,R2,R3,R4 


RPTR,#LS DEV a3 UNITS 
#2,RPTR ;NO-DO 

1$ MORE UNITS 
R5 


SEQ 68 


—_—_—-— --— a ee - oS 


SEG 69 


MISCELLANEOUS S$ 


ECTIONS MACRO M1200 15=DEC-82 12:54 PAGE 101-1 
REPORT CODING SECTION 


" 
| 2947 014772 POP RG 
| 2948 014774 POP R3 
2949 014776 POP Re 
| 3950 015000 POP 
2951 015002 POP RD 
| 3952 015004 ENDRPT 
2953 015006 000000 RLUN:  .WORD 
954 015010 000000 RPTR: .WORD 
2956 015012 045 116 045 STATHD: .ASCII /%N%ZA DR BLKS WR BLKS RD BDPAK / 
2997 015060 104 103 110 -ASCIZ @DCHK/RD DCHK/WR DCHK/RD DCHK/WR%Na 
2959 01512% 045 101 125. FMO: “ASCIZ /%AUNIT %D1%N/ 
2962 015142 045 101 040 FM: ASCII /%A MD1%ZA XDSXA. 4DS%A.  AD3KA. = / 
2963 015216 045 104 063 -ASCIZ /4D3%A. = 4D3%A. UD3%A. 4D3%A. 2N/ 
2965 015266 045 101 040 STHD2: .ASCII /%A 
2966 015333 122 105 103 -ASCIZ /RECOV RECOV UNRECOV UNRECOV2N/ 
2968 015376 ENDMOD 
« 


eos 
| 


SEQ 70 


MISCELLANEOUS SECTIONS MACRO M1200 15-DEC-82 12:54 PAGE 103 
/INITIALIZE SECTION 


2971 .SBTTL INITIALIZE SECTION 

2972 

2973 s++ 

2974 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
2975 : AT THE BEGINNING OF EACH PASS. 

2976 pon 

2977 

2978 015376 BGNINIT 

2980 015376 000240 INIT: NOP : 

2981 015400 105037 016150 CLRB = STRT SFOR STATS CLEAR 

2982 015404 READEF #EF.START SSTART COMMAND? 

2983 015412 BNCOMPLETE INIT2 NO 

2984 015414 005237 016150 INC STRT SYES, SET START FLAG 
2985 015420 012737 003340 003304 INIT2: MOV #BLKTBL,DEVPTR iSET ALL UNITS ABORTED: 
2986 015426 005004 CLR RG [UNIT NUMBER 

2987 015430 017705 165650 1$: MOV @DEVPTR,RS Ger POINTER 

2988 015434 010415 MOV R4,aRS INSERT UNIT # 

2989 015436 052715 120000 BIS #eiT!3:B1113, ars’ :SET ABORTED, HALTED 
2990 015442 052715 004000 BIS #B1T11,aR5 zSET UNIT NOT TESTED 
2991 015446 006304 ASL R4 *#2 FOR LOOK-UP 

2992 015450 016465 024346 000102 MOV BUF TBL(R4), RCVBUF (RS) i SETUP POINTER To UNIT'S BUFFER 
2993 015456 006204 ASR R4 :CORRECT BACK TO UNIT 
2994 015460 023727 003304 003356 CMP DEVPTR, #LSTDEV :LAST DEVICE DONE? 
2995 015466 103005 BHIS HECK 

2996 015470 062737 000002 003304 ADD #2,DEVPTR O-GET 

2997 015476 005204 INC RG iNET DEVICE AND 

2998 015500 000753 BR 1$ + SERVICE 

3000 015502 022737 000010 002012 CHECK: CMP #8. ,.LSUNIT :MAKE SURE NOT 

3001 015510 703005 BHIS  GETHRD :TOO MANY UNITS 

3002 015512 ERRSF 101.,TOMANY sTOMANY=REQUEST “C 
3003 015522 DOCLN ZEXIT 

3005 015524 012737 003340 003304 GETHRD: MOV #BLKTBL,DEVPTR ;INIT TABLE POINTER 
3006 015532 005004 CLR R4 :CLEAR DEVICE COUNTER 
3007 015534 017705 165544 1$: MOV QDEVPTR,RS iGET STATUS WOR 

3008 015540 010437 002074 MOV R4,LSLUN UNIT NUM. IN CASE ERROR 
3009 015544 GPHARD R4.R2 ‘GET HARD INFO 

3010 015552 BNCOMPLETE 3$ 

3011 015554 042715 004000 BIC #B1T11,aR5 ZUNIT IS TESTED! 

3012 015560 012203 MOV (R2)+,R3 'R3=CSR 

3013 015562 012265 000204 MOV (R2)+,TUVECT(RS) GET VECTOR ADDRESS 
3014 015566 112265 000061 MOVB (R2)+.DR+1(R5) ;SAVE UNIT SUMMARY 

3015 015572 005202 INC R2 GET TO WORD BOUND 
3016 015574 012237 016152 MOV (R2)+,PDTFLG AND GET LAG 

3017 015600 052715 040000 BIS #BIT14,aR5 tSET SEND PBREAK FLAG 
3018 015604 032765 000400 000060 BIT #BITB,OR(RS) § :DRIVE 0? 

3019 015612 001011 BNE 13$ YES 

3020 015614 032765 001000 000060 BIT #BIT9,DR(RS) § :DRIVE 1? 

3021 015622 001005 BNE 13$ 0K 

3022 015624 ERRSF 102.,NODRVS sNEI THER?! 
3023 015634 DOCLN sEXIT 7 

3025 015636 105737 016150 13$:  TSTB  STRT :START COMMAND? 

3026 015642 001412 BEQ 14$ ‘NO, DONT CLEAR 

3027 *YES@CLEAR STATS 


SS LT sts tennis 


SEQ 71 


MISCELLANEOUS SECTIONS MACRO M1200 15-DEC-82 12:54 PAGE 103-1 
INITIALIZE SECTION 


3028 015644 012702 000202 MOV #BLKEND ,R2 sR2-=>END OF STATS 

3029 015650 012701 000110 MOV #WRTNO,R1 sFORM ADDRESS OF START: 

3030 015654 060501 ADD R5,R1 :R1==>START OF STATS. 

303) 015656 162702 000110 SUB #WRTNO,R2 FORM # TO CLEAR 

3033 015662 105021 2$: CLRB (R1)+ CLEAR °EM 

3034 015664 005302 DEC R2 iM RE? 

3 015666 001375 BNE 2$ YES 

3036 015670 042715 120000 148: BIC #B1T15!B1T13,aR5  ;SET NOT ABORTED NOT HALTED 

3037 015674 010365 000022 MOV R3,RCSR(RS) GET DEVICE REGISTERS: 
015 062703 000002 ADD #2,R 

3039 015704 010365 000024 MOV R3,RCDB(RS) 

3040 015710 062705 000002 ADD #2,R 

3041 015714 010365 000026 MOV RS, XMSR(R5) 

3042 015720 062703 000002 ADD 

3043 015724 105737 016152 TSTB PDTFLG UNIT A PDT? 

3044 015730 001402 BEQ ar 3NO 

3045 015732 162703 000004 SUB R3 2 YES...RCDB=XMDB 

3046 015736 010365 000030 4$: MOV RS, XMDB(R5) 

3047 015742 005065 000072 CLR TTENCRS) :ZERO DATA PATTERN 

3048 015746 005065 000002 CLR RETRYCRS) 3NO RETRIES 

3049 015752 005065 000064 CLR REC(R5) NO RECORD 

3050 015756 005065 000076 CLR SUCCS(R5) :NO SUCCESS 

3051 015762 005065 000074 CLR DLV(RS) 3NO DLV ERROR 

3052 015766 005037 003332 CLR ALLGON 0K TO PRINT STATISTICS 

3053 015772 062737 000002 003304 3$: ADD #2,DEVPTR ==>NEXT DEV 

3054 016000 005204 INC R4 3 INCREMENT UNIT NUMBER 

3055 016002 020437 002012 cMP R4,LSUNIT sMORE UNITS? 

sooo 016006 001252 BNE 1$ :YES, GP HARD THE NEXT 

3058 016010 005037 003300 CLR SYSTAT 3 SYSTEM ep WORD 

3059 016014 RFLAGS FLGLOC 3GET USER FLAGS 

3060 016022 005037 003324 5$: CLR BLKER ;NO_ERROR 

3061 016026 013737 002204 003302 SETLEN: MOV LENGTH,TAPLEN GET : OF RECORDS 

3062 016034 006237 003302 ASR TAPLEN ;GET # BLOCKS PER TRACK 

3063 016040 012737 000200 003326 MOV #200, SECREC :PRESET SECOND | START At 200 

3064 016046 022737 000200 003302 CMP #200, TAPLEN 7m BLKS > 128.? 

3065 016054 101003 BHI 3$ NO-SWITCH TRACKS 2ND PASS 

sone 016056 012737 000400 003326 MOV #400, SECREC i YES-START AT 400 

3088 

3089 016064 3$: ENDINIT 


3091 
3092 016066 124 117 117 TOMANY: rly /TOO MANY UNITS MAX.=8 / 
Soe 016116 123 105 114 NODRVS: “ASL? /SELECT AT LEAST 1 DRIVE / 


3096 016150 000000 STRT:: . WORD 
3097 016152 000000 PDTFLG::.WORD 3TU58 IS _IN PDT 
3098 016154 000000 FLGLOC::. WORD ;USER FLAGS 


—--—— 


o> 


Leh Ad 


CELLANEOUS 
TIALIZE SEC 
3101 
3102 
Sig 

104 
3105 
3106 016156 
3107 016156 
3108 016160 
3109 016206 
3110 016214 
3111 016220 
3112 016224 
3113 016226 
3114 016232 
3115 016234 
3116 016242 
3117 016244 
3118 016252 
3119 016254 
3120 016262 
3121 016264 
3122 
3123 
3124 
3125 
3126 
3127 
3128 016266 
3129 016306 
3130 016310 
3131 016314 
3132 016316 
3133 016320 


000760 


000000 


011500 
042700 


000002 
045 


SEG 72 
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003340 
000044 
104000 
000022 
016264 
000002 


177770 


101 


016264 


003356 
016264 


101 


p++ 
; THE AUTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SET AND CHECKS FOR 


BGNAUTO 


1$: 


2$: 


ENDAUTO 
TRPPTR: .WORD 


; A VALID INTERFACE LOCATION. DROPS UNIT IF INTERFACE IS NOT THERE. 


;AUTO DROP ROUTINE 


a #4 ATRPHND -#PRIOG; VER? 1 GET BUS TRAP VEC. 


0 KTBL,TRPPTR ;GET TOP OF DATA BLOCK TABLE 
MOV @TRPPTR,R GET DATA BLOCK 
a #B1T1S!B1T11,aR5 a TESTED OR ABORTED? 
TST ARCSR(RS) sNO-VALID ADDRESS? 
NOP 2YES...(TRAP IF NOT) 
CMP TRPPTR,#LSTDEV ;MORE TO TRY? 
BHIS 3NO 
ADD #2, TRPPTR 70N_TO NEXT 
BR 1$ sGET_IT 
CLRVEC #4 sRESTORE 


ILLEGAL ADDRESS TRAP HANDLER: 


TRPHND: PRINTF 
MOV 


MSAUTO: 


BIC 
DODU 


RTI 
»ASCIZ 


#MSAUTO 


:SAY "AUTO DROPPED’’ 
aR5,R0 UNIT # 
#177770,R0 


3G 
sMASK IT OFF 
DROP HIM 


/%AAUTO DROP: %N/ 


i mn a i ee 8 ee 


1 6 





SEC 73 
‘MISCELLANEOUS SECTIONS MACRO M1200 15=DEC-82 12:54 PAGE 107 
CLEANUP CODING SECTION 
3136 LSBITL CLEANUP CODING SECTION 
i 
r++ 
3139 2 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
3140 : AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
1 3142 e 
3143 016340 BGNCLN 
3144 016340 005737 003332 TST ALLGON ZENTRANCE FROM ALL-UNITS-ABORTED? 
3145 016344 001004 BNE :YES-EXIT 
3146 016346 005737 002206 TST‘ STAEOP <NO-STATS AT EOP? 
3147 016352 001401 BEoOs«é1S ?NO 
5148 016554 DORPT YES 
3156 
3168 
3169 016356 1$: _ ENDCLN 


poe 


MISCELLANEOUS SECTIONS 
‘DROP UNIT SECTION 


72 


WR 9 OONAU Sw 


004737 
16370 052715 


012737 


6454 000000 
16456 045 


WWW 


w 
SSL SSSS LRRD MIM OB WIIG 


ONOUSWN—OO0ON 


3 


MACRO M1200 15-DEC-82 12:54 PAGE 109 
-SBTTL DROP UNIT SECTION 


p++ 
3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


RO=UNIT NUMBER 
PUSH RO sSAVE IT 
PUSH R5 SAVE PRESENT UNIT POINTER 


016424 CALL GETRS GET POINTER TO UNIT 
120000 BIS MBITIS!BIT13,QR5 ;SET ABORTED, HALTED 
POP R5 RESTORE PRESENT UNIT POINTER 
POP RO sRETRIEVE UNIT NUMBER 
PRINTF #ABOMSG,RO 
ENDDU 
003340 016454 GETRS: MOV #B'.KTBL,PTR 37=>UNIT _0 
000016 1$: MOV aF«R,R5S GET STATUS WORD 
oer B CORRECT UNIT? 
000002 016454 ADD #2,PTR 3NO,-=>NEXT 
BR 1$ ; CONTINUE 


2$: 
PTR: ~ WORD 
101 104 ABOMSG: riety /ZADROPPED UNIT %D12N/ 


SEQ 74 


nn 


MISCELLANEOUS SECTIONS MACRO M1200 15=DEC-82 12:54 PAGE 111 
ADD UNIT SECTION 
3221 -SBTTL ADD UNIT SECTION 
3222 
3223 p++ 
3224 3; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
3225 : TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
3226 ; TO THE TEST CYCLE. 
3227 :-- 
3228 
$565 016504 BGNAU 
353} sTHE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UNIT. 
3249 
3250 
325 


1 
3252 016504 ENDAU 
3253 


SEG 75 


ooo SCOOCOCOOOCoOoCoO 
= ad od Pe SST Tere eo: 
wivi 


IONS 


012737 


004737 
004737 


005237 
000207 


cT MACRO M1200 15=DEC=82 12:54 PAGE 114 
SELF=DIAGNOSTIC EXECUTION 


016552 003320 
005754 


005500 


005754 
006022 


003314 


-SBTTL TEST 1 / DEVICE SELF-DIAGNOSTIC 


BGNMOL 
eNLIST ME,BEX 


BGNTST 
TSTID = #TST1 


MOV 
CALL 
CALL 
CALL 
CALL 
BCC 
CALL 
CALL 
64$: 
EXIT TST 
TST1: TUSELF 
INC DONE 
RETURN 


ENDTST 


EXECUTION 


#TST1,TSTTOP 
SETUP 
SETDR 
RUN 
SWAPDR 
4$ 
SETUP 
RUN 


SAVE ADDR OF TEST 
INIT UNITS TSTPC 
GET 1ST DRVS. 

:D0 TEST 

GET NEXT DRVS. 
3BR_NO 2ND DRVS 
sREINIT UNITS TSTPC 
sa TEST 


SEQ 76 





016 
3333 016742 
3334 
3335 
3336 016746 
HEL 016750 
3339 016756 


WHS 0OONOUSWNoO 
oooooceo Cco°o°o°o 


AANAR RE EE ER UN 
Saeed ed ed 


/NSEEK EOT BOT 


012737 


004737 


005004 
016465 


062704 


000207 
000000 


177777 





MACRO M1200 15=DEC-82 12:54 PAGE 116 
-SBTTL TEST 2 / SEEK EOT,BOT 
BGNTSi 
TSTID = #TST2 
016746 003320 
005754 
005602 


006022 
005500 


005754 
006022 
64$: 
EXIT TST 


TST2: CLR R4 
017130 000064 1$: MOV RECDAT(R4) ,REC(R 


TUSEEK REC(R5),DR(R5) 


000002 ADD #2,,R4 

017130 177777 CMP RECDAT(R4) ,#=1. 
BNE 1$ 

003314 INC DONE 
RETURN 

RECDAT: 0. :BOT 

200 :BOT OTHER TRACK 
177 3E0 
377 sEOT OTHER TRACK 
400 :BOT AGAIN 


ENDTST 


MOV #TST2,TSTTOP SAVE ADDR OF TEST 


CALL SETUP ZINIT UNITS TSTPC 
CALL SETDR 3GET 1ST DRVS. 

CALL RUN EST 

CALL SWAPDR 7GET NEXT DRVS. 

BCC 64$ 7BR NO 2ND DRVS 
CALL SETUP ;REINIT UNITS TSTPC 
CALL RUN REPEAT TEST 


R4=INDEX INTO RECORD TABLE 
iS :GET THE RECORD 


sSEEK IT 


POINT TO NEXT RECORD 
LAST ONE DONE? 


NO=L 
ZYES-SET DONE FLAG 


setetaee Ron seatornenantsiehes tanner pears tin nrnanec saan 


N 6 
SEQ 78 
MISCELLANEOUS SECTIONS MACRO M1200 15=DEC-82 12:54 PAGE 118 
TEST 3 / HIGH ACTIVITY WRITE/READ 
3356 .SBTTL TEST 3 / HIGH ACTIVITY WRITE/READ 
3358 ; WRITE THEN KEAD VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
3359 + A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 
3361 017146 BGNTST 
3362 017146 TSTID #TST3 
017146 012737 017212 003320 MOV ATST3,TSTTOP | ;SAVE ADDR OF TEST 
017154 004737 005754 CALL = SETUP SINIT UNITS TSTPC 
017160 004737 005602 CALL  SETOR :GET 1ST DRVS. 
17164 004737 006022 CALL RUN :D0 TEST 
017170 004737 005500 CALL § SWAPDR [GET NEXT DRVS. 
017174 103004 BCC 64$ ‘BR NO 2ND DRVS 
017176 004737 005754 CALL = SETUP SREINIT UNITS TSTPC 
017202 004737 006022 CALL RUN SREPEAT TEST 
017206 64$: ‘DONE 
3363 017206 EXIT TST 
3306 
3366 017212 012765 000100 000066 TST3: MOV #100, TMP(RS) | INIT TO HALF OF REMAINING 
3367 017220 005004 CLR :FOR INDEX INTO DATA TABLE 
3368 017222 005065 000064 CLR Rec (R5) START AT RECORD 4° 
3369 017226 016465 020522 000072 1S: MOV 1 PATTEN(RS) GET D 
3370 017234 TUWRIT PATTEN(RS) .REC(RS) 7512. °BRIRS). M40 
3371 020024 TUREAD REC(RS),#512.,DR(R5) #0 
337 020424 062704 000002 ADD #2,R4 POINT TO NEXT DATA 
373 020430 005764 020522 TST TST3PT(R4) TEND? 
3374, 020434 001402 BEQ 2$ SYES 
3375 020436 000137 017226 JMP is SNO-WRITE, READ NEW DATA 
3376 020442 005004 2$: CLR [POINT TO FIRST DAT 
3377 020444 062765 000200 000064 ADD #200 REC(RS) § :BUT NOW USE ADJACENT RECORD 
3378 020452 032765 001000 000064 BIT 006, REC (RS) ZALL ADJACENT RECORDS DONE? 
3379 020460 001002 BNE $5 YES 
3380 020462 000137 017226 JMP 1$ ‘NO-WRITE, READ AT NEW RECORD 
3381 020466 162765 001000 000064 3$: SUB #1000,REC(RS)  :RESTORE TO NEXT RECORD 
3382 020474 066565 000066 000064 ADD TMP(R5),REC(RS) :HALF INTO REST OF TAPE 
3383 020502 006265 000066 ASR TMP(R5) [HALF OF HALF FOR NEXT TIME 
3384 020506 103402 BCS 4$ : DONE? 
3385 020516 000137 017226 JMP 1$ NO 
3386 020514 005237 003314 4$: INC DONE SYES=SET FLAG 
3387 020520 000207 RETURN 
3388 020522 000000 TST3PT: .WORD 000000 
3389 020524 125252 “WORD 125252 
3390 020526 177777 "WORD 177777 
3391 020530 052525 "WORD 052525 
3392 020532 000000 "WORD 000000 


3394 
3395 020534 ENDTST 


a mm a a nen ee 


——————————————— eee 
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SEQ 79 
MISCE LANEQUS SECTIONS MACRO M1200 15-DEC-82 12:54 PAGE 120 ¢ 
TEST HIGH ACTIVITY WRITE/READ : 
3398 BI 
3399 -SBTTL TEST 4 / WRITE SELECTED NUMBER OF BLOCKS . 
3401 020536 BGNTST BI 
3402 020536 TSTID &#TST4 Bi 
020536 012737 020602 003320 MOV #TST4,TSTTOP SAVE ADDR oF TEST rs) 
020544 004737 005754 CALL SETUP sINIT UNITS TSTPC Bi 
020550 004737 005602 CALL SETDR 3GET T 1ST DRVS. C. 
020554 004737 006022 CALL RUN ST C 
020560 004737 005500 CALL SWAPDR iGET NEXT DRVS. | C 
020564 103004 BCC 64$ R NO 2ND DRVS C 
020566 004737 005754 CALL SETUP tREINIT UNITS TSTPC Cc 
020572 004737 006022 CALL RUN SREPEAT TEST C 
020576 648: ‘DONE C 
3403 020576 EXIT TST C 
3 |e 
3406 020602 005065 000064 TST4: CLR REC(RS) zSTART AT REC 0 
3407 020606 013765 003302 000066 MOV TAPLEN, TMP(RS) GET | THE # OF BLOCKS PER TRACK C 
3408 020614 005065 000062 CLR TRK(R (R5)=1ST OR 2ND PASS COUNTER C 
3409 020620 016565 000064 000072 1$: MOV REC(R9), PATTENCRED n USE RECORD NO. FOR DATA 
3410 020626 005737 002214 TST DRV sADD OR # 
3411 020632 001403 BEQ tt a :NO 
34,12 020634 066565 000060 000072 ADD DR(RS) ,PATTEN(RS) :YES, ADD DRIVE ID 
3413 020642 10$: TUWRIT PATTEN(RS),REC(RS) sa512. DRCAS fi 
414 021432 005365 000066 DEC TMP(RS) 300 L RECORDS” FOR THIS TRACK? 
15 021436 001404 BEQ PESAGET OTHER TRACK 
3416 021440 005265 000064 INC REC(RS) zNO-ONTO NEXT RECORD 
3417 021444 000137 020620 JMP 1$ sEXECUTE THE WRITE 
3418 021450 005765 000062 2$: TST TRK(RS) : DONE 2 TRACKS? 
3419 021454 001012 BNE TST4EX YES “EX 
3420 021456 005265 000062 INC TRK (RS) NO-SET FLAG FOR NEXT PASS 
3421 021462 013765 003326 000064 MOV SECREC,REC(RS) 3GET NEW STARTING BLOCK # 
3422 021470 013765 003302 000066 MOV TAPLEN, TMP(RS) ;RESET # OF BLOCKS 
3423 921476 000137 020620 JMP 1$ SAND EX ECUr 
3424 021502 005237 003314 TST4EX: INC DONE sDONE 
3439 021506 000207 RETURN S RETURN 
3427 021510 ENDTST 


AMAAAIAAAAAAAIAQA MOOQAIOIOAAaaIAaIaAQaQaQaaana 


cil 
LECTED NUMBER OF BLOCK 


012737 021556 003320 
004737 005754 
004737 005602 
006022 
005500 


004737 005754 
004737 006022 


ooooo 

rororrnrr 

— en ee 
PAPAS ATI TT 


VIM & & 


bd 
S 
S 
“J 
iw 
N 


5 4 
13 ee 003302 000066 
6 


565 000064 000072 
005737 002214 


43 021610 066565 000060 000072 
22216 005365 000066 
3406 oeesse 001404 
47 022224 005265 000064 
48 022230 000137 021574 
022234 5765 000062 
5265 000062 
013765 003326 000064 
022254 oni gs 003302 000066 


266 005237 003314 
022272 000207 


ONS MACRO M1200 _ 12:54 PAGE 122 


~-SBTTL TEST 5 / READ SELECTED NUMBER OF BLOCKS 


2$: 


TST5EX: 


BGNTS: 
TSTID 


EXIT TST 


RETURN 
ENDTST 


#TST5 
MOV #TSTS,TSTTOP SAVE ADDR OF TEST 
CALL SETUP INIT UNITS TSTPC 
CALL SETDR GET 1ST DRVS. 
CALL RUN EST 
CALL SWAPDR iGET NEXT DRVS. 
BCC 64$ 2ND DRVS 
CALL SETUP EREINTT UNITS TSTPC 
CALL RUN ;REPEAT TEST 

64$: ; DONE 
REC(RS) START AT REC 0 
TAPLEN, TMP(RS) GET THE # OF 


BLOCKS PER TRACK 
(R (R5)=1ST OR 2ND PASS 

Dag PATTENCRE)” N USE - note NO. AS DATA 

DRVCHK = DR 


10$ 

DR(RS) PATTEN(RSS” :ADD IN DRIVE ID 

REC c¢R5) #512. ,DR(R5) ff 

TMP( D0 hte RECORDS _ THIS TRACK? 


7Y 
REC(R5) sNO-NEXT REC 
EXECUTE THE READ 
TRK(R5) :DON TRACK 
T5E YES~EXIT 
TRK(R5) ;NO-SET FLAG FOR NEXT ~— 
SECREC, f BLOCK 


[GET NEW STARTING 
SRESET # OF BLOCKS 
‘AND EXECUTE 


: N 
;RETURN 


SEG 80 


——-—-—— iC —--y 
} 


VVSOVSOVVVSOYVYIGDG 3 VWIYVIAMOAMOAAIAOAAIOAOAAAAAAOAAAAAOAIAOAAAAAAAAMAMNAIMAAMAMANAANM 


[~ 


MISCELLANEOUS SECTIONS MACRO M1200 15=DEC-82 12:54 PAGE 124 
‘TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
| 3461 .SBTTL TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
| 3463 022276 BGNTS; 
| 3464 022276 TSTID #TST6 
022276 012737 022342 003320 MOV #TST6,TSTTOP i SAVE ADDR oF TEST 
022304 004737 005754 CALL ~- SETUP SINIT UNITS TSTPC 
022310 737 005602 CALL  SETDR 'GET 1ST DRVS. 
022314 004737 006022 CALL = RUN ‘DO TEST 
022320 004737 005500 CALL § SWAPDR ‘GET NEXT DRVS. 
022324 103004 BCC 64$ ‘BR NO 2ND DRVS 
022326 004737 005754 CALL =‘ SETUP :REINIT UNITS TSTPC 
022332 004737 006022 CALL = RUN SREPEAT TEST 
022336 648: ‘DONE 
3465 022336 EXIT TST 
ss 
3468 022342 005065 000064 TST6: CLR REC(RS) sSTART AT REC 0 
3469 022346 013765 003302 000066 MOV TAPLEN TMP(RS) GET THE # OF BLOCKS PER TRACK 
3470 022354 005065 000062 CLR (R5)=1ST OR 2ND PASS 
3471 022360 016565 000064 000072 1S: MOV REC (RS), PATTENCRE) N USE REC ORD NO. FOR DATA 
3472 022366 005737 002214 TST DRVCHK ZADD D 
3473 022372 001403 BEQ 
3474 022374 06 000060 000072 ADD DR(RS) ,PATTEN( (RSS ZADD apRive ID 
3475 022402 10$: TUWRIT PATTEN(RS) ,REC(RS) #512. .DR(R 
3476 023172 005365 000066 EC TMP(RS) 700 ALL aeconDs" FOR THIS TRACK? 
3477 023176 001404 BEQ SYESGET OTHER TRACK 
3478 023200 005265 000064 INC REC(RS) ZNO-NEXT REC 
3479 023204 000137 022360 JMP sEXECUTE THE WRITE 
3480 023210 005765 000062 2$: TST TRK(RS) :DONE 2 TRAC 
3481 023214 001012 BNE T6EX :YES-EXIT 
3482 023216 005265 000062 INC TRK(R5) *NO=-SET FLAG FOR NEXT PASS 
3483 023222 013765 003326 000064 MOV SECREC,REC(RS) :GET NEW STARTING BLOCK # 
3484 023230 013765 003302 000066 MOV TAPLEN, TMP(R5) :RESET # OF BLOCKS 
3485 023236 000137 022360 JMP 1$ zAND EXECUTE 
3486 023242 005237 003314 TST6EX: INC ;DON 
3487 023246 000207 RETURN + RETURN 


3488 
3489 023250 ENDTST 


SEC 81 


RT TTP TMM M MMMM MMMM nnn nn nn Mn Mn nnn Mn co 


} 
| 
' 


3492 
3493 


3494 023252 
3495 063525 


024032 
024034 


LO ee ee ee ee ee ee ee ee ee ey 
SOODNOULSWN oO 


012737 
apg 


004737 


005065 


000207 


023316 
005754 
005602 
006022 
005500 


005754 
006022 


000064 


002214 
000060 
000066 
000064 
023334 
000062 


000062 


003314 


003320 


000066 
000072 


000072 


000064 
000066 
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i: TEST 7 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 


-SBTTL TEST 7 / READ=REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 


TST?: 


1$: 


10$: 


2$: 


TST7EX: 


BGNTSi 
TSTID 


EXIT TST 


RETURN 
ENDTST 


#TST7 


64$: 
REC(RS) 
TAPLEN TMP(RS) 
REC(R5) ,PATTEN(R5) 
DRVCHK ZADD 


10$ “N 
DR(RS) PATTEN( cRss 
REC(R55,#512.,DR(R5) 
TMP Re) 


SECREC,REC(R 
 aaelaatian 


MOV #TST7,TSTTOP SAVE ADDR OF TEST 
CALL SETUP ZIN “i UNITS TSTPC 
CALL SETDR 7GET 1ST DRVS. 


CALL RUN :D0 TEST 

CALL SWAPDR iGET NEXT DRVS. 

BCC 64$ R NO 2ND DRVS 
CALL SETUP SREINIT vis TSsPC 
CALL RUN TEST 


:REPEAT 
E 


sSTART AT REC 0 

:GET THE # OF yoy PER TRACK 
:TRK(R5)=1ST OR 2ND P 

ee RECORD NO. FOR DATA 


sADD DRIVE ID 
300 ALL_RECORDS THIS TRACK? 
ER TRACK 


sNO-NEXT REC 
sEXECUTE THE READ 
ec ‘me 


YES~EX 
sNO-SET FLAG FOR NEXT “yy 
2GET NEW STARTING BLOCK # 
sRESET # OF BLOCKS 
; AND EXECUTE 


ON 
RETURN 


SEQ 82 


amumn 


oa AAOAOOOAAAAAMN AAA ALALALA LALA i i i Re ee es Re es ie | i i es ee Bs | 


oo 


r+ — 


/PAT 


3523 
3524 


| 
| 
| 
} 
| 


—— 


000144 


-SBTTL PATCH AREA 
eREPT 10 
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SEG 83 





TTT AAMAMAA AA MAOAMAAe 





a a oe oe 


A i ee et st ft 


™ 


WWWWWANAWAWw 


WWW 
vw 


3546 024366 
3547 024367 


3549 024370 
35 


63 
3564 036006 


re 3 


025426 
64 


034750 


023 
023 
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1/0 BUFFER AREAS 


-SBTTL 1/0 BUFFER AREAS: 
;WHO=GETS-WHAi=SPACE TABLE 


BUFTBL: .WORD 


[ONLY 1 TRANSMIT BUFFER NECESSARY: 


BUFO -BLKB 

BUF 1: 8 

BUF 2: 8 

BUF 3: BL 

BUF4: 8B 

BUFS: 8B 

BUF 6 -BLKB 

BUF7 -BLKB 
ENDMOD 


-BYTE RSXOFF 
BYTE RSXOFF 


SEND XOFF BEFORE EVERY PACKET 
TRBUF: .BLKB RCBFSZ 


SEC 84 


—i Aina 


rrr rr. 


| coal aul onal seed Attell ool oueall Gell one oneal 


= — ee ee ee ee ee ee ee ee Pe ee ee Pe ee ee ee ee ee ee 


PARAMETER CODING 
(1/0 BUFFER AREAS: 


9 
3640 036006 


4 
3655 036052 
3656 


3657 036052 124 125 

3658 036063 126 105 

3659 036100 120 104 
0 036131 124 105 

3661 036146 124 105 

3662 

e007 


BGNMOD 


BGNHRD 
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«TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 


p++ 

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICAT‘ONS 
; WITH THE OPERATOR. 


MSG1.0,0, 160000, 177777,VES 
618.2. 6,0,776.YES 
6,1 AN 
meee et e YES 
MSG3,4,2,YES 


/TUS8 C ee 

/VECTOR 

/PDT (PARALLEL) INTERFACE/ 
/TEST DRIVE 0/ 

/TEST DRIVE 1/ 


SEG 85 


ee ——EE —————— 
f 
i me ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


| 
| 
' 
| 


poe 


“PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


370 

3702 036242 
3703 036307 
3704 036351 
3705 036403 
3706 036430 
3707 036456 
3708 
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-SBTTL SOFTWARE PARAMETER CODING SECTION 


SF TOUT: 
116 125 115 MSG4: 
101 104 104 MSG4B 
123 124 101 MSG5: 
103 117 115 MSG6: 
120 122 111. MSG7: 
043 040 105 MSG8: 


A SN 


ARE N 


BGNSF T 


“THE AT ARE USED egy 8 CODING SECTION CONTAINS MACROS 


THE SUPERVISOR TO BUILD P-TABLES. THE 
EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


ROS NOT 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


MSG4,0,D,1777,8.,512..YES 
MSG4B i 


ose,.t0.. WP, 1.098..208 


*NUMBEP 4 writ TEST 4-7 (8 TO 512)° 
/ADD [.. # TO DAT atm At tee TEST 4-7/ 
PSTATISTICS PRINTED A , / 
/COMPARE DATA ON REA 
fag i PACKET ON ERROR/ 

# ERRORS = DVC FATAL IF “EVL'SET/ 


SEC 86 


oe ee ee FE ee Eee eS ee ee ee ee ee ee Re Be Be Be Be Be Be Be Be Be Re Be Re Be Re Be ee ee Be Be Be ee Fe 


PEE 


| PARAMETER CODING 
“SOFTWARE PARAMETER CODING SECTION 


| 
| 


3711 

3720 036554 
036560 

3751 036560 

3723 036560 

3724 036560 

3725 564 


36572 
3729 036574 
3730 036574 
3731 


000016 


000000 


000001 


MACRO M1200 15-DEC-82 1 


LSLAST:: 


2:54 PAGE 136 

eREPT 14, sLASTAD CORRECTION 
LASTAD 

ENDMOD 

BGNSE TUP 1 

BGNPTAB 

176540 

120 

ENDPTAB 
ENDSETUP 
ND 


SEG 87 


TAMA Mt Ata 





f ee 


SEC 88 
|PARAMETER CODING MACRO M1200 15-DEC-82 12:54 PAGE 136-1 
| SYMBOL TABLE 
ABNDX = 000004 G CHKANS 010112 G C$MSG = 000023 EVL = 000004 G GSRADA= 000140 
ABO. 012360 CHKEND 010536 G CSOPEN= 000034 EVLTHR 00221 GSRADB= 000000 
ABOMSG 016456 CHKERR 010624 S$PNTB= 000014 00721 GSRADD= 000040 
ABONM 006336 CHKPKS 010202 G SPNTF= 000017 N 007212 GSRADL= 000120 
ADR = 000020 G CHKPTR 010200 CSPNTS= 000016 ESEND = 002100 G$RADO= 000020 
ALLGON 003332 G CHKREE 010676 CSPNTX= 000015 ESLOAD= 000035 GSXFER= 0000 
. 0 CHKRET 011242 $010 = 000377 FLGLOC 016154 G GSYES = 000010 
BDATA = 000134 G CHKSUC 011536 G C$RDBU= 000007 EM 015142 HARDR = 000136 G 
BDBYTS 014140 CHKSUM 013066 G SREFG= 000047 FMO «015124 HARDW = 000140 G 
BDCHK = 000022 G CHK8 010132 CSRESE= 000033 FTLNM 003312 HELP = 000000 
BDCOM = 000014 G CKCKSM 013162 G CSREVI= 000003 FSAU = 000015 HOE = 100000 G 
BITO = 000001 G CLRALL 005660 G CSRFLA= 000021 FSAUTO= 000020 HRD «012340 
BITOO = 000001 G CLRBUF 005720 G $RPT = 00002 FSBGN = 000040 HRDRD = 000016 G 
BITO1 = 000002 G CLRPTR 005752 CSSEFG= 000046 FSCLEA= 000007 HRDWR = 000020 G 
BITO2 = 000004 G CMDSNT= 000100 6 C$SPRI= 000041 F$DU. = 000016 HRD1. (011164 
BITOS = 000010 G CMNDER= 000040 G C$SVEC= 000037 FSEND = 000041 = 010000 6 
BITO4 = 000020 G CMPDAT 002212 C$TPRI= 000013 FSHARD= 000004 IDPTR 003316 G 
BITOS = 000040 G CNINIT= 000032 G C0141 FSHW = 000013 s G 
BIT06 = 000100 COMPAR 013762 G DEVPTR 003304 G FSINIT= 000006 IER = 020000 G 
BITO7 = 000200 G CSNRDY 003334 G 0 003360 $JMP = 000050 INIT 01537 
BITO8 = 000400 CSRCVB 003336 G DEV? 003570 D = 000000 INITwD 013754 
BITOS = 001000 G (SAU = 000052 DEV2 004000 FSMSG = 000011 INIT2 015420 
BIT]. = 000002 G C$AUTO= 000061 DEVS 004210 FSPROT= 000021 ISR - = 000100 G 
BIT10 = 002000 G CSBRK = 00 DEV4 004420 FSPUR = 00 IXE = 004000 G 
BIT11 = 004000 G CSBSEG= 000004 DEVS 004680 FSRPT = 000012 ISAU = 000041 
BITI2 = 010000 C$BSUB= 2 DEVE 905040 FSSEG = 00 ISAUTO= 000041 
BIT13 = 020000 G CSCEFG= 000045 EV? 005250 FSSOFT= 000005 ISCLN = 00 
BIT14 = 040000 G C$SCLCK= 000062 DFPTBL 002172 G FSSRV = 000010 I$DU = 000041 
BIT15 = 100000 G C$CLEA= 000012 DFTL1 012206 F$SUB = 000002 ISHRD = 000041 
BIT2 = 000004 G C$CLOS= 000035 DIAGMC= 000000 F$Sw = 000014 ISINIT= 000041 
BITS = 000010 G C$CLP1= 000006 LV. = 000074 G FSTEST= 000001 ISMOD = 000041 
BIT4 = 000020 G CSCVEC= 000036 DOBRK 013222 G P 010106 I$MSG = 000041 
BITS = 000040 G CSDCLN= 000044 NE 003314 G GBTMP2 010110 ISPROT= 000040 
BIT6 = 000100 G C$DODU= 000051 DR = 000060 G GETANS 006736 G ISPTAB= 000041 
BIT? = 000200 G CSDRPT= 000024 DRVCHK 002214 GETHRD 015524 I$PWR = 000041 
BIT8 = 000400 G C$DU = 000053 EF.CON= 000036 G GETPTR 007002 ISRPT = 000041 
IT9 = 001000 G CSEDIT= 000003 EF NEW= 000035 G 016424 I$SEG = 00004 
BLKEND= 000202 G CSERDF= 000055 “PWR= 000034 G GTAGIN 007224 ISSETU= 000041 
BLKER 003324 G CSERHR= 000056 "RES= 000037 G GTIBYTE 007662 G I$SFT = 000041 
BLKSIZ= 000210 G CSERRO= 000060 *STA= 000040 G GTDOWN 007534 I$SRV = 000041 
BLKTBL 003340 G CSERSF= 000054 ERRDES 012402 G TOK 007452 I$SUB = 000041 
= 0 ¢ CSERSO= 000057 ESABO = 177720 G GTPKS1 007004 G ISTST = 000041 
BRKPTR 013760 CSESCA= 000010 ESCKS = 177757 G GTPKS8 007214 G JSIMP = 000167 
BRKTO 013756 CSESEG= 000005 ESCKSM= 177757 G 007660 LENGTH 002204 
BRKWD 013752 $ESUB= 000003 SCMD = 177720 G 007414 LGOFST= 000120 G 
BUFTBL 024346 CSETST= 000001 ESNCRT= 177767 G GSCNTO= 000200 LNCNT 014342 
554.26 CSEXIT= 000032 ESNOMO= 177737 G GSDELM= 000372 LOE = 040000 G 
BUF1 026464 C$GETB= 000026 ESNONX= 177770 G G$DISP= 000008 LOG 012046 G 
F2 097522 C$GETW= 000027 K = 000000 G GSEXCP= 000400 Logo 012370 
BUFS 030560 CSGMAN= 000043 ESPART= 177776 G GSHILI= 000002 LOGOK 012134 
BUF. 031616 CSGPHR= 000042 ESRD. = 177757 GSLOLI= 000001 LOGOK2 013220 
BUFS 032654 C$GPLO= 000030 ESREC = 177711 G G$NO = 000000 LOGO. 013132 
BUF6 «038712 $GPRI= 000040 ESSK = 177740 G GSOFFS= 000400 LOG) 013236 
BUF? 034750 C$INIT= 000011 ESSLF = 177777 G GSOFSI= 000376 CoG2 012266 
CARLF 014356 CSINLP= 000020 ESTRY = 000001 G GSPRMA= 000001 LOGS 013326 
CHECK 015502 CSMANI= 000050 ESWLOC= 177765 G GSPRMD= 000002 LOG3B 012350 
CHKANR 010176 C$MEM = 000031 ESWR = 177757 GSPRML= 000000 LOT = 000010 G 


SEG 89 

[PARAMETER CODING MACRO M1200 15-DEC=82 12:54 PAGE 136-2 
|SYMBOL TABLE 
LSTDEV 003356 G L10004 013660 NCART = 000054 G RECERR= 000042 G STRT_ 016150 G 
L$ACP 002110 G L10005 013714 NODRVS 016116 RECID. 012654 G SUCCS = 000076 G 
LAPT 002036 G L10006 015004 NOMOR 006340 RECID2 013030 SUCOTL= 000046 G 
L$AU_ 016504 G L10007 016064 NOMOT = 000030 G RECOV 011262 SVCGBL= 000000 
L$AUT 002070 G L10010 016262 NOUNIT= 000036 G RETERR 011464 SVCINS= 177777 
L$AUTO 016156 G L10011 016356 NOXOFF 006430 RETRY = 000002 G SVCSUB= 177777 
L$CCP_ 002106 G L10012 016422 012250 RLUN 5006 SVCTAG= 177777 
LSCLEA 016340 G L10013 016504 006334 RPTR 01 SVCTST= 177777 
L$CO_ 002032 G L10014 016700 NXTST 006052 G RSCMND= 000002 G SWAPDR 005500 G 
L$DEPO 002011 G L10015 017144 NXTST2 006156 RSCONT= 000020 G SWPTR 005600 
L$DESC 002122 G L10016 020534 ONEFIL= 000001 RSDASZ= 000204 G SYSTAT 003300 G 
LSDESP 002076 G L10017 021510 TL = 00005 RSDATA= 090001 G SSLSYM= 010000 
L$DEVP 002060 G L10020 022274 OVRFLO 012746 RSDNSZ= 000222 G TAPLEN 003302 G 
L$DISP 002152 G L10021 023250 OVRN = 000012 RSEND = 000002 G THRSHI 011370 
L$DLY 002116 G L10022 024034 OSAPTS= 000000 RSINIT= 000004 G THRSLO 011342 
L$DTP_ 002040 G 10023 036052 O$AU = 00000 RSMSIZ= 000012 G MP = 000066 G 
L$DTYP 002034 G L10024 036242 O$BGNR= 00000 RSNDSZ= 000016 G TOMANY 016066 
L$DU_ 016360 G L10025 036564 O$BGNS= 000001 RSNTAB 002220 TORCVB= 000050 G 
L$DUT 002072 G L10C27 036574 O$DU = 000001 RSSEND= 000100 G TOSNDB= 000056 G 
L$DVTY 005460 G MABEE 012300 OSERRT= 000000 RSSNIT= 000001 G BUF 024370 
L$EF 002052 G MSAUTO 016320 SGNSW= 000001 RSSNOP= 000000 G TRK = 000062 G 
LSENVI 002044 G MSBDA 002332 G O$POIN= 000001 RSSNSZ= 000016 G TRPHND 01626 
L$ETP_ 002102 G MSCMD 002676 G O$SETU= 000001 SSRD = 000002 G TRPPTR 016264 
LSEXP1 002046 G SCOM 002376 G PARTL = 000034 G RSSSEK= 000005 G TSTPC = 000020 G 
LSEXP4 002064 G MSGI PATTEN= 000072 G RSSSLF= 000007 G TSTTOP 003320 
LSEXPS G MSGIB 036063 PDTFLG 016152 G RSSWR = 000003 G TST 016552 
LSHARD 036010 G MSGIC 036100 PERDEV 006170 RSVP 006364 G TST2 016746 
LSHIME 00212 MSG2 036131 PKPTR = 000104 G RSXOFF= 000023 G S13 O17212 
L$HPCP 002016 G MSGS 036146 NT = 001000 G RSXON = 000020 G TST3PT 020522 
L$HPTP 002022 G MSG4 036242 PRBUF 002210 RTRYN 011422 TST4 020602 

002172 G MSG4B 036307 PRDAT. 014344 006022 G TST4EX 021502 

P G MSGS 036351 PRFORM 014346 SECREC 003326 G TSTS 021556 

LSINIT 015376 G MSG6 036403 PRI = 002000 G SERVST 007656 TST5EX 022266 
L$LADP 002026 G MSG? 036430 PRIOO = 000000 G SETDR 005602 G TST6 022342 
LSLAST 036560 G MSGB 036456 PRIO1 = 000040 G SETLEN 016026 TST6EX 023242 
L$LOAD 002100 MSHCHK 002550 G PRI02 = 000100 G SETPTR 005656 TST? 023316 

002074 G MSHDRD 003146 G PRIO3 = 000140 G SETSRV 007572 TST7EX 024026 
L$MREV 002050 G MSHDWR 003210 G PR1I04 = 000200 G SETUP 005754 G TUVECT= 000204 G 
LSNAME 002000 MSNIT 002612 G PRIO5 = 000240 G SFPTBL 002204 G TSARGC= 000002 
L$PRIO 002042 G MSNLOG 002314 G PRI06 = 000300 G SFT 012316 TSCODE= 005052 
L$PROT 002142 MSNOMO 002440 G PRIO7 = 000340 G SFTOUT 036242 SERRN= 000146 
L$PRT 002112 G MSNOTP 002456 G PRNPAK 014176 G SFTRD = 000002 G TSEXCP= 000000 
L$REPP 002062 G MSNRSP 002756 G PRNSIZ 003330 G SFTWR = 000004 G TSFLAG= 00 
L$REV 002010 G MSOVRN 003252 G PTR 016454 SKERR = 000024 G TSFREE= 036574 
L$RPT 014362 G MSPART 002626 G RCBCNT 003310 SLFER = 000044 G TSGMAN= 000 
L$SOFT 036166 G MSQRSP 002772 G RCBFSZ= 001036 G SND 0643 TSHILI= 000376 
L 2056 G MSREC_ 002712 G RCDB_ = 000024 G SNDBYT 006666 G TSLAST= 000001 
L$SPCP 002020 G MSRNIT 002530 G RCFLG 003306 G SNDCNT= 000070 G TSLOLI= 000001 
L$SPTP 002024 G MSSELF 002356 G RCINIT= 000006 G SNDHND 013646 TSLSYM= 010000 
L$STA 002030 G MSSFRD 003046 G RCSR = 000022 G SNDINT 013646 G TSLTNO= 00000 

002204 G MSSFWR 003106 G VBUF= 000102 G R = 000122 TSNEST= 177777 
LSTEST 002114 G MSSKER 002300 G RCVHND 013662 W = 000124 TSNSO = 0000 
LSTIML 002014 G MSTOSN 003024 G RCVINT 013662 G SRVTBL 007636 TSNS1 = 000005 
L$UNIT 002012 G MSUNIT 002650 G RDNO = 000114 G STAEOP 002206 TSPCNT= 000000 

002202 MSWPRO 002506 G RDN1 = 000116 G STATHD 015012 TSPTAB= 010026 
10002 002220 MSWRSP 002732 G REC = 000064 G STATUS= 000000 G TSPTHV= 000001 
10003 012572 MXRTRY 003322 G RECDAT 017130 STHD2 015266 TSPTNU= 000001 





A A 


oe eee ee a ee 


| SY 
TSSAVL= 


TS$ 
TS$AUT= 
ABS. 


Sane th CODING 
MBOL TABLE 


177777 
177777 
000 


= 010013 


010010 


° 036574 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 


DYNAMIC MEMORY: 


ELAPSED 


00:02:4 
CNTUUA.BIN/DS:GBL/EN:AMA:ABS ,CNTUUA.LST/CR/=SP/NL : CND: MD :BEX=SVC34/MLB, CNTUUA.MAC 


TIME: 


005 
00 
02 


0 
0 
0 
0 
= 0 
0 
0 
0 
= 0 
0 
0 


PENT th PNT tt Nt] 
AQAQAAAAAGA 


Now 
NOANAAHOMLONfr 


QAaAGa 


AAG 


X$TRUE= 000020 


SEG 90 
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CNTUUA CREATED BY MACRO ON 15=DEC-82 AT 12:55 PAGE 1 

SYMBOL oT REFERENCE CREF v0 

SYMBOL VALUE REFERENCES 

ABNDX : 000004 #26-825 *84-2434 84-2447 84-2449 

ABO 012360 84-2444 84-2458 84-2471 #84-2487 

ABOMSG 016456 109-3187 #109-3217 

| ABONM 006336 *60-1632 60-1649 60-1654  #60-1662 

ADR = 000020 G #14-573 

ALLGON 003332 G #24-793 *60-1658 103-3052 107-3144 

ASSEMB = 000010 ~380 -380 

BDATA = 0001 G #28-878 101-2929 101-2939 

BOBYTS 014140 98-2777 98-2788 98-2791 98-2796 “98-2806 

BDCHK = 000022 G #16-601 8-2152 78-2204 

BDCOM = 000014 G #16-598 80-2248 84-2459 

BITO = 000001 G #14-573 48-1473 72-1993 84-2450 90-2561 90-2562 90-2564 90-2575 

BITOO = 000001 G #14-573 14-573 

BITO1 = 000002 G #14-573 14-573 

BITO2 = 000004 G #14-573 14-573 

BITO$ = 000010 G #14-573 14-573 

BIT04 = 000020 G #14-573 14-573 

BITOS = 000040 G #14-573 14-573 

BIT06 = 0001 G #14-573 14-573 

BITO7 = 000200 G #14-573 14-573 

BITO8 = 000400 G #14-573 14-573 

BITO9 = 001000 G #14-573 14-573 

BIT = 000002 G #14-573 60-1623 66-1799 72-1994 76-2093 80-2236 80-2305 

BIT10 = 002000 G #14-573 60-1619 62-1729 80-2254 80-2274 80-2282 80-2303 118-3370 
118-3371 = 120-3413) = 120-3413 = 122-3444 24-3475 9124-3475 = 126 = 3506 

BIT17 = 004000 G #14-573 101-6313 103-2990 103-3011 105-3111 

BiTl2 = 010000 G at vd 4 118-3370 118-3370 =118-3370 120-3413 120-3413 120-3413 124-3475 

BiT13. == 020000 G #14-573 103-2989 103-3036 109-3184 

BIT14 = 040000 G #14-573 60-1638 60-1641 78-2165 78-2177 94-2701 103-3017 

BIT15 = 100000 G #14-573 48-1471 68-1841 68-1863 70-1899 70-1916 70-1936 70-1947 
80-2240 103-2989 103-3036 105-3111 109-3184 

BiT2 = 000004 G #14-573 2-1995 

BITS = 000010 G #14-573 72-1996 

BIT4 = 000020 G #14-573 62-1723 62-1727 72-1997 86-2506 94-2652 

BITS = 000040 G #14-573 62-1745 62-1747 72-1998 

BIT6 = 000100 G #14-573 72-1999 80-2245 80-2306 94-2678 94-2686 94-2693 94-2709 
96-272 96-2730 98-2797 

BIT? = 000200 G #14-573 72-2000 80-2274 80-2282 80-2288 80-2290 80-2292 80-2303 

61T8 = 000400 G #14-573 50-1506 62-1733 62-1742 80-2267 80-2296 103-3018 

EIT9 = 001000 G #14-573 48-1475 62-1717 80-2251 80-2278 82-2361 103-3020 

BLKEND = 000202 G #28-898 103-302 

BLKER 003324 G #24-790 *62-1714 103-3060 

BLKSIZ = 000210 G #28-902 ~924 30-925 30-926 30-927 30-928 30-929 30-930 

BLKTBL 003340 G #30-912 48-1469 50-1503 27-1528 56-1571 60-1617 60-1633 70-1897 
101-2909 103-2985 103-3005 105-3109 109-3208 

BOE 000400 G #14-573 

BRKPTR 013760 *94=2677 +%94-2685 94-2692 96-2743  #96-2757 

BRKT 013756 #942649 %94-2658 *94-2664 94-2675 94-2683 +*96-2747 #96-2756 

BRKWD 013752 94-2663. #96-2753 

BUF TBL 024346 103-2992 #130-3533 

BUFO 025426 130-3533 #130-3553 


SEQ 91 


ae 


94-2650 


118-3370 


124-3475 


76-2101 


94-2710 


30-931 
76-2099 





CNTUUA 
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PAGE 2 
CREF 


SYMBOL CROSS REFERENCE vo1 

SYMBOL VAL REFERENCES 

BUF 1 0264 130-3534 #130-3554 

BUF 0275 130-3535 #130-3555 

BUF 0305 130-3536 4130-3556 

BUFS 031616 130-3537 #130-355 

BUFS 052634 130-3538 #130-3558 

BUF 033712 130-3539 #130-3559 

BUF 034750 130-3540 #130-3560 

CARLF 014356 100-2835 100-2837 #100-2846 

CHECK 015502 103-2995 #103-3000 

CHKANR 010176 76-2097 76-2105 #76=2109 

CHKANS 010112 G 58-1596  #76-2091 

CHKEND 010536 G 78-215 2200 #80-2234 

CHKERR 010624 80-2244  #B80-2251 

CHKPKS 010202 G 76-2095 76-2103 #78~2132 

CHKPTR 010200 *76-2099 76-2100 76-2104 += *76=2106 ~=—-#76=2111 

CHKREE 010676 80-2237 #80-2258 

CHKRET 011242 2023842 80-2247 80-2250 80-2253 80-2257 

CHKSUC 011536 _G 80-2238 80-2258  #82-2340 

CHKSUM 013066 -G 2559. 92-2602. 114-3321 116-3339 118-3370 
120-3413 120"3413 120-3413 122-3444 122-3444 

CHK8 010132 76-2094  #76-2099 

CKCKSM 013162 G 78-2150 78-2185 78-2198 + #922599 

CLRALL 005660 G #52=1528 66-1802 

cCLRBUF 005720 G 52-1530 #94-1548 66-1805 

CLRPTR 0057 52-1528 52-152 1531 #52=1533  #54-1556 

CMDSNT = 000100 G #26-850  %62-1726 82-2347 82-2351 82-2364 

CMNDER = 000040 G  #16-608 82-2384 

CMPDAT 002212 #13-500  —- 98-2779 

CNINIT = 000032 G #16-605. 94-2705 

COMPAR 013762 G 78-2162 78-2187 #98-2774 

CSNRDY 003334 G #24-800 64-1770 

CSRCVB 003336 G = #24=801 «= 74-2030 

(SAU = 000052 #5-380 111-3252 

C$AUTO = 000061 #5-380 105-312 

C$BRK = 000022 #5-380 58-1594 60-1657 64-1774 742052 
101-2911 101-2913 

C$BSEG = 000004 #5-380 

C$BSUB = 000002 #5-380 

CSCEFG = 000045 #5-380 

CSCLCK = 000062 #5-380 

CSCLEA = 000012 #5-380 107-3169 

C$CLOS = 00003 #5-380 

C$CLP1 = 000006 #5-380 

CSCVEC = 000036 #5-380 94-2711 94-2713. 105-3119 

CSDCLN = 000044 #5-380 60-1659 103-3003 103-3023 

C$D0DU = 000051 #5~380 =2489 105-3131 

CSDRPT = 000024 #5-380 107-3148 

C$DU = - 000053 45-380 109-3207 

CSEDIT = 000003 #5-380 5-423 

CSERDF = 000055 45-380 84-2443 84-2457 


eee ae 


80-2275 


86-2512 


94-2654 


80-2283 80-2291 80-2293 
118-3370 118-3371 118-3371 
124-3475 124-3475 126-3506 
*94-2651 

96-2745 96-2746 101-2908 


SEQ 92 


4 


AAA 


CNTUUA CREATED BY MACRO ON 15-DEC-82 AT 12:55 

SYMBOL CROSS REFERENCE 

SYMBOL VALUE REFERENCES 

CSERHR = 000056 #5-380 84-2470 84-2485 

CSERRO = 000060 #5-380 

CSERSF = 000054 #5-380 60-1656 103-3062 

CSER = 000057 #5-380 84-2463 84-2481 

CSESCA = 000010 #5-380 

CSESEG = 000005 #5-380 

CSES = 000003 #5-380 

CSETST = 000001 #5-380 114-3326 116-3353 

CSEXIT = 000032 #5-380 114-3319 116-3333 

C$GETB = 000026 #5-380 

C$GETW = 000027 #5-380 

C$GM = 000043 #5-380 

CSGPHR = 000042 #5-380 103-3009 

C$GPLO = 000030 #5-380 

C$GPRI = 000040 #5-380 

C$INIT = 000011 #5-380 103-3089 

CSINLP = 000020 #5-380 

CSMANI = 000050 #5-380 

CSMEM = 000031 #5-380 

C$MSG_ = = 000023 #5-380 86-2519 

CSOPEN = 000034 #5-380 

CSPNTB = 000014 #5-380 80-2280 86-2509 

CSPNTF = 000017 #5-380 100-2830 100-2835 

CSPNTS = 000016 #5-380 101-2910 101-2912 

CSPNTX = 000015 #5-380 80-2256 80-2261 

C$QI0_ = 000377 #5-380 

C$R = 000007 #5~-380 

CSREFG = 000047 #5-380 103-2982 

CSRESE = 000033 #5-380 5-380 

C$REVI = 000003 #5-380 =4 

C$RFLA = 000021 #5380 103-3059 

C$RPT = 000025 #5-380 101-2952 

C$SEFG = 000046 #5-380 

C$SPRI = 000041 #5-380 94-2670 

C$SVEC = 000037 #5-380 94-2671 94-2673 

C$TPRI = 000013 #5-380 

ESC 014142 98-2796 #98-2807 

DEVPTR 003304 G #24-782 *60-1617 60-1618 
*103-2985 103-2987 103-2994 

DEVO 003360 30-912 #30-924 

DEV1 003570 30-913 #30-925 

DEV2 004000 30-914 #30-926 

DEV3 004210 30-915 #30-927 

DEV4 004420 30-916 #30-928 

DEVS 004630 30-917 #30-929 

DEV6 005040 30-918 #30-930 

v7 005250 30-919 #30-931 

DFPTBL 002172 G #11-472 

DFTL1 012206 #84~-245 *B4-2456 484-2457 

DIAGMC = 000000 5-380 - 

DLV = 000074 G #26-848 68-1861 70-1938 
74-2059 74-2060 *74-2062 


E 


PAGE 3 
CREF v01 


103-3022 
98-2795 


80-2264 


105-3108 


60-1627 
*103-2996 


84-2457 


70-1949 
78-2167 


120-3427 
120-3403 


86-2515 


80-2266 


*60-1629 
*103-3005 


*74-2033 
86-2513 


122-3458 124-3489 126-3520 
122-3434 124-3465 126-3496 
98-2796 

109-3187 

101-2939 

80-2287 80-2295 
*60-1633 60-1634 60-1650 
103-3007 *103-3053 

74-2034 74-2035 *74-2037 
86-2515 *86-2516 96-2731 


*60-1652 


*74-2 
96-2 


NO 


wu 
mo 


cn I 


a 


“ss SS A St St St St tt 


CNTUUA 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


REFERENCES 
96-2733 96-2735 
DOBRK  013222:«G 60-1640  #94-2648 
DONE 003316 G #24-786  *56-1570 
#126=351 
DR = 000060 #26-861 - &B-1473 
#103-3014 103-3018 
| 120-3413 120-3413 
| 136-3506 126-3506 
DRVCHK 002214 #13-501 130-3410 
'EF.CON = 000036 G #14-573 
lEF.NEW = 000035 G #14-573 
'EF.PWR = 000034 G #14-573 
'EF:RES = 000037 G #14-573 
EF-STA = 000040 G  #14-573 103-2982 
| ERRDES 012402 G 84-2463 84-2457 
ESABO. = 177720 G #18667 
ESCKS = 177757 G  #18-678 «18680 
ESCKSM = 177757 #18-680 
ESCMD = 177720 G  #18-676 82-2382 
ESNCRT = 177767 G #18-668 89-377 
ESNOMO = 177737 G  #18-675 89-9354 
ESNONX = 177770 G  #18-669 89-2387 
ESOK = 000000 G  #18-670 82-2342 
ESPART = 177776 G #18-671 82-2397 
ESRD = -177757 #18-682 ‘ 
ESREC = 177711 G  &#18-677  82=240 
ESSkK. = 177760 G #18-672 82-257 
ESSLF = 177777 G #18-679 
ESTRY = 000001 G  #18-673 822345 
ESWLOC = 177765 G &#18-674 822392 
ESWR = 177757 #18-681 
EVL = 000006 G  #14-573 84-2451 
EVLTHR 002216 #13-502 84-2453 
EXOFF 007213 #68-1876 70-1956 
EXON 007212 68-1832  #68-1875 
ESEND = 002100 5-380 
ESLOAD = 00903 #5-380 5-423 
FLGLOC 016154 G 84-2451  #103-3059 
M 01514 101-2929 101-2939 
FMO 015124 101-2928 #101-2959 
FTLNM «003312 424-785 4-24 7% 
FSAU —s-=_-000015 #5~380 111-3229 
FSAUTO = 000020 #5-380 105-3106 
F$BGN = 000040 #5-380 5-406 
101-2893 101-2900 
114-8317 114-3319 
120-3401 120-3403 
196-3494 196-3496 
136-3724 136-3724 
FSCLEA = 000007 #5-380 107-3143 
F$DU. = (000016 #5~380 109-3179 
FSEND = 000041 #5380 5-380 
| 


CREATED BY MACRO ON 15=DEC=-82 AT 12:55 


*103-3051 
58-1596 
48-1475 
103-3020 
122-3443 


122-3441 


84-2463 
18-681 


74-2045 
70-1911 


#103-3098 
#101-2962 


PAGE 4 
CREF 


v01 


#114=3322 
*48-1477 


116-3339 
122-3444 


124-3472 


84-2470 
18-682 


74-2053 


*116-3344 

*50-1505 
118-3370 
122-3444 


126-3503 


84-2481 
82-2359 


74-2065 


5-380 


#118-3386 . *120-342 


50-1506 


118-3370 


124-3474 


84-2485 


5-380 


*50-1508 
118-3371 
‘126=3475 


486-2502 


134-3684 


5-380 


#122=3455 


86-2509 
118-3371 
124-3475 


98-2795 


136-3721 


5-380 


#124=-3486 


88-2540 
120-3412 
126-3505 


SEQ 94 


CNTUUA 
SYMBOL 
OL 


— 
FSINIT 


is 

FS 

on 
FS$PROT 
FSPWR 
FSRPT 
FSSEG 


CREATED BY MACRO ON 15-DEC-82 AT 12:55 
CROSS REFERENCE 
VALUE REFERENCES 
5-380 5-380 5-380 
13-513 14-566 86=2519 
103-3089 105-3120 107-3109 
114-3319 114-3326 1143326 
118-3361 118-3361 118-3361 
120-3403 120-3427 120-3427 
124-3463 124-3463 124-3463 
126-3496 126-3520 126-3520 
136-3724 136-3729 136-3730 
= 000004 #5~380 132-3640 132-3655 
= 000013 #5~380 11-672, 11-485 
= 000006 #5~380 103-2978 103-3089 
= 000050 #5~380 114-3319 116-3333 
= 000000 5-380 5-406 13-513 
132-3629 136-3721 
= 000011 =380 86-2502 86-2519 
= 000021 #5~380 7-433 7-437 
= 000017 #5~380 
= 000012 #5~380 101-2900 101-2952 
= 000003 #5~380 
= 000005 #5-380 134-3684 134-3700 
= 00001 #5380 96-2720 96-2724 
= 000002 #5~380 
= 000014 #5-380 13-495 13-511 
= 600001 5-380 114-3317 114-3326 
122-3432 122-3458 124-3463 
010106 *#74=2029  *74-2039 —*74-2049 
010110 #74=2064 74-2055 74-2057 
006736 58-1592 #66-1798 
015524 103-3001 #103-3005 
007002 #66-1810 
016424 109-3183 #109-3208 
007224 #70-1898 70-1962 
007662 68-1840 68-1860 70-1915 
007534 70-1902 70-1906 70-1919 
70-1954  #70-1958 
007452 70-1923  #70-1943 
007004 66-1807  #68-1827 
007214 66-1803  #70-1896 70-1965 
007660 *70-1897 70-1898: 70-1959 
007414 70-1928  #70-1932 
= 000200 #5-380 
= 000372 #5380 
= 000003 #5~380 
= 000400 #5-380 
= 000002 #5-380 
= 000001 #5-380 
= 000000 #5~380 
= 000400 -380 132-3643 132-3644 
134-3689 134-3690 134-3692 
= 000376 5-380 132-3643 132-3644 
134-3689 134-3690 134-3692 


PAGE 5 
CRE 


v0% 


118-3363 
14-566 


96-2728 


116-3331 
124-3489 
74-2050 


*74=2064 


70-1935 
70-1930 


*70-1961 


132-3645 
132-3645 


120-3403 
100-2849 


96-2737 


116-3353 

126-3494 
*74=-2069 

74-2067 


70-1946 
70-1934 


#72-2003 


132-3646 
132-3646 


122-3434 
101-2893 


118-3361 
~3520 


126-3 
#74=2075 
#74-2076 


#742029 


70-1937 


132-3647 
132-3647 


124-3465 
101-2968 


118-3395 


70-1941 


134-3686 
134-3686 


126-3496 
114-3314 


120-3401 


70-1948 


134-3687 
134-3687 


130-3564 


120-3427 


70-1952 


134-3688 
134-3688 


SEG 95 


SEG 96 


/ CNTUUA CREATED BY MACRO ON 15=DEC-82 AT 12:55 PAGE 6 


'SYMBOL CROSS REFERENCE v01 
ALUE 








‘Sy V REFERENCES 
'GSPRMA = 000001 #5~380 132-3643 132-3644 
|GSPRMD = 000002 #5-380 134-3686 134-3692 
GSPRML = 000000 #5-380 132-3645 132-3646 132-3647 134-3687 134-3688 134-3689 134-3690 
GSRADA = 000140 #5-380 
GSRADB = 000000 #5-380 
GSRADD = 000040 #5-380 134-3686 134-3692 
GSRADL = 000120 #5-380 132=3645 132-3646 132-3647 134-3687 134-3688 134-3689 134-3690 
GSRADG = 000020 #5-380 132-3643 132-3644 
GSYES = 000010 #5-380 132-3643 132-3644 132-3645 132-3646 132-3647 134-3686 134-3687 134-3688 
134-3689 134-3690 134-3692 
HARDR = 000136 G #28-879 ~—-'101-2924 + 101-2934 
HARDW = 000140 G #28-880 101-2926 101-2936 
HELP —- = 000000 #5~365 5-375 ~397 5-415 9-440 9-455 11-479 13-504 #14-518 
| 14-556 = 14575. 30-932. 30-938 = 32-954 = 32-959) 32-967. © 32-974. «32-979 
32-985 48-1401 48-1 48-1418 48-1424 48-1429 48-1435. 48-1443 48-145 
48-1456 48-1462 #101-2855 103-3067 103-3077 107-3150 107-3157 109-3189 109-3195 
111-3232 111-3238 #112=3258 112-3299 112-3305 130-3565 130-3570 130-3580 #132-3591 
132-3649 132-3665 134-3693 136-3714 
HOE = = 100000 G = #14~573 
HRD 012340 84-2475  #84-2483 
HRDRD = 000016 G #16-599 80-2298 
HRDWR = 000020 G #16-600 80-2300 
HRD1 011164 80-2285  #80~229% 
IBE = 010000 G #14-573 
IDPTR 003316 «G «=: #24=787 = 561571 56-1572 56-1574 #56+1576 
IU = = 000040 G =—s-#14-573 
IER = 020000 G #14-57 
INIT 015376 #103-2980 
INITWD 013754 94-2648 94-2676 94-2684 = 94-2691 94=2698 94-2704 ©: #96-2754 
INIT2 015420 103-2983 #103-2985 
ISR = 000100 G = #14573 
IXE = 006000 G = #14-573 
$Au_ = 000041 #5-380 = #1113229 -#111-3252 
ISAUTO = 000041 #5-380 —-#105-3106 + #105-3120 
ISCLN = 000041 #5-380 «#1073143 #107~3169 
$00 = 000041 #5-380 —-#109-3179 | #109-3207 
ISHRD_ = 000041 #1323640 #132-3655 
ISINIT = 000041 -380  -#103-2978 +#103-3089 
I = 000041 #5-380 5- #5-406 13-513 #13-513, 14-566 #14566 «100-2849 #100-2849 
101-2893 #101-2893 101-2968 #101-2968 114-3314 #114=3314 130-3564 #130-3564 132-3629 
#132~3629 136-3721 #136-3721 
SG = 000041 #5-380  #B6-2502 #86-2519 
ISPROT = 000040 #5-380 : 
ISPTAB = 000041 #5-380 136-3724 #136-3724 136-3729 #136-3729 
ISPWR = 000041 #5-380 
ISRPT = 1 #5-380 —«-#101-2900_#101-2952 
$SEG = 000041 #5-380 114-3317 116-3331 118-3361 120-3401 122-3432 124-3463 126-3494 
I$SETU = 000041 #5-380 136-3723 136-3723 136-3724 136-3730 #136-3730 
$SFT = 000041 #134-3684 #134-3700 
ISSRV = 000041 380 — #96-2720. #962724 #96-2728 =: # 96-2737 
I$SUB = 000041 #5-380 114-3317 116-3331 118-3361 120=3401 122-3432 124-3463 126-3494 


| 


> le ee ee 


-CNTUUA 


LSHPTP 


CREATE 
CROSS REFE 
LUE 


" 
oS 
So 
So 
o 
—} 
So 


002022 


D BY MACRO ON 15=DEC-82 AT 12:55 


RENCE 


ag a 


DAQDAQVAAAAGAAAIAQAAIAQAIAIAAAAAAAAAAMAGA Gc 


REFERENCES 
#5-3 


#5-423 


84-2435 
*100-2833 


74-2073 
84-2454 
*84-2462 
*84-2484 
48-1479 
103-2994 


#1113229 
#105-3106 
#107-3143 


#5=425 


#9-453 


#109-3179 
#32-952 


132-3640 


#114-3317 
#116-3353 
#120-3401 
#122-3458 
#1263494 


#100-2842 


78-2153 
94-2661 
#84-2490 


#84-2459 
484-2463 
#84-2470 
#84-2481 
#84~-2485 


50-1509 
105-3115 


#132-3640 


PAGE 7 
CREF vO01 
114-3319 
#116-3353 
120-3403 
#122-3458 
126-3496 


78-2170 
94-2706 
84-2463 


84-2485 
52-1531 


78-2179 
96-2750 


56-1574 


#114-3326 


#126-3520 


78-2205 


60-1627 


80-2249 


60-1650 


80-2272 


70-1959 


#116-3331 


#124-3489 


80-2301 


76-2104 


SEG 97 


' 
' 


CNTUUA 


, va Oe oT eS ee Te ee 
—— 
NORIPIR) tt 


sesessesesss 


Moron 
NVMESWN—ONOUES WN 


CREATED BY MACRO ON 15=DEC-82 AT 12:55 PAGE 8 
oT REFERENCE CREF 


0 
036052 


DAQAQAAAAAIAAIAIAIAIAAAAIAIMAIMAAAH4 


= 
#5- 


20-697 
132-3643 


11-472 
#103-2978 
#136-3720 
*84=2432 


#7-433 


#101-2900 
134-3684 


13-495 


103-3000 
#11-485 
#13-511 


#114-3326 


#134-3700 
#136-3729 
8 3 


#22-727 
#132-3657 


v0% 
#11=472 


136-3730 
*84-2433 98-2793 *98-2794 +*103-3008 


#134-3684 


#13-495 


103-3055 


SEG 98 


| CNTUUA 


CROSS REFERENCE 
VA 


ADAQAAAAIAAAAAAAIAAAAAAAAG 


ac 


CREATED BY MACRO ON 15=DEC-82 AT 12:55 PAGE 9 
CREF v0 
REFERENCES 
132-3644 #132-3658 
132-3645 #132-3659 
132=3646 #132-3660 
132-3647 #132-3661 
134-3686 #134-370 
134-3687 #134-370 
134-3688 #134-3704 
134-3689 #134-3705 
134-3690 #134-3706 
134-3692 #134-3707 
20-700 #22-737 
20-698 #22=761 
20-699 #22-763 
20-704 #2273 
20-691 20-695 #22=721 
20-703 #2272 
20-713 = #22=731 
20-711 = #22=751 
20-696 422-765 
20-705 #22-741 
20-712 #22-753 
20-708 #22=747 
20-694  #22-735 
20-709 #22725 
20-692 #22757 
20-693 #22=759 
20-701 #22=719 
20-714  #22-755 
20-706 #22743 
20-702 #22733 
20-710 #22=749 
#24-789 80-2284 
#16-614 22379 
103-3022 #103-3094 
60-1656 #60-1663 
#16-604 82-2356 
#16-607_ 82-2389 
#62-1707 
84-2460  #84-2466 
60-1626 60-1655 #601660 
58-1588  #60-1617 
60-1628  #60-1632 
=4 2-8 4-361 5-362 5-401 13-514 14-515 
101-2852 101-2865 111-3254 112-3255 112-3266 +=: 131-3586 =: 132-3587 
#16-613. 78-2166 
84-2443 486-2524 
#16-597 78-216 
#5-380 =423 
#5-380 = #5=413 5-423 
#5-380 3s -#5=413 5-423 
#5-380 = -#5=413 5-423 
#5-380 = #5-413 5-423 


000001 


eS ee oe 


14-528 


132-3601 


100-2851 


SEG 99 


| SEG 100 


| CNTUUA CREATED BY MACRO ON 15=DEC-82 AT 12:55 caer 10 


| SYMBOL CROSS REFERENCE v01 
/SYMBOL VAL 


| VALUE REFERENCES 
OSERRT = 000000 #5~380 5-423 
= 000001 #5-380 = #5=413 5-423 
= 000001 #5-380 = #5413 #5=413 0 W52G413_ #52413 #5413 5-413 5-413 5-423 
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136-3724 
8-3361 
43463 


11 
12 


134-3700 
Mars) 
126-3495 
80-2236 


9-3187 
2-3645 
43686 
134-3692 
134-3700 
124-3464 
*78-2140 


122-3433 


136-3630 
136-3720 
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REFERENCES 


‘SYMBOL CROSS REFERENCE 


SYMBOL VALUE 
005500 G 


005600 


SWAPDR 


CNTUUA 
SWPTR 





*80-2305 


003300 G 


SYSTAT 


122-3453 124-3469 


#101-2952 #103-3089 #105-3120 
122-3438 


#120-3427 #122-3458 #124-3489 
103-3064 120-3407 120-3422 


*103-3062 
126-3515 


5 #134-3700 


#107-3169 #10932 


#24-781 


003302 G 


TAPLEN 


*122-3438 = *122-3445 


*120-3422 
*126-3515 


#26-845 
*122-3453 


011370 
011342 
= 000066 G 


eee ee ee + 


| 
CNTUUA 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TOMANY 016066 
TORCVB = 000050 G 
TOSNDB = 000056 G 
TRBUF 024370 
TRK = 000062 
TRPHND 016266 
TRPPTR 016264 
STPC. = 000020 G 
TSTTOP 003320 
TST1 016552 
TST2 016746 
ST3 017212 
TST3PT 020522 
14 020602 
TST4EX 021502 
TS 021556 
TSTSEX 022266 
T6 22342 
TST6EX 023242 
ST? 023316 
TST7EX 024026 
TUVECT = 000204 G 
TSARGC = 000002 
TSCODE = 005052 
TSERRN = 000146 
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oO 
Nm 


#5~380 
484-2470 


5-423 
5- 


460-1 
84-2470 


96-2749 


60 
*114-3318 


#118-3388 


*94~-2672 


60-1656 
484-2481 
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134-3690 


484-2443 
84-2481 


#105-3121 
*62-1700 
*118-3362 


#94-2674 
5-423 


34 9 
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84-2443 
484-2485 


1 
1 
#1 
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*120-3402 
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118-3370 
122-3444 
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*94=2712 
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1 
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*124-3470 


*124=3464 


94-2713 
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484-2463 
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124-3475 
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*94-2714 
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132-3645 
#13 


34 
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96-2737 
118-3395 
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134-3686 


116-3 
116-3353 


134-3 


86-2519 
114-3326 


v01 
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132-3644 #134-3686 
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107-31 


124-3489 126-35 


132-3655 


9 
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132-3643 #132-3644 
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SYMBOL VALUE 
TS$RPT = 010006 
TS$SOF = 010024 
TS$SRV = 010005 

$$sw = 010002 
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XSPTR = 000106 
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86-2515 


101-2910 
105-3128 


132-3640 
80-2264 


101-2939 
105-3108 


SEG 112 


UUA 


CNT 
AACRO CROSS REFERENCE 


‘MACRO NAME 
MSPUT1 


MS$RADI 





MSRNRO 
MSSETS 


MS$SVC 


MSTLAB 


MSTSTL 


03 
#58-1594 


#12 
"38-1596 


CREATED BY MACRO ON 15=DEC-82 AT 12:55 


#134-3687 
#103-3059 
#7 


#124-3463 
60-1656 


# 
#60-1656 


105-3128 
80-2256 


44 
134-3687 
103-3059 
7- 


124-3463 
#60-1657 


PAGE 23 
CREF 


v01 
105-3128 
80-2256 


#134-3688 
#11472 
4116-3331 


#126-3494 
60-1657 


#109-3187 
80 


134-3688 


11-472 


126-3494 
#60-1659 


109-3187 


#134-3689 


#13-495 


#132-3629 
60-1659 


#122-3458 
#80-2256 


109-3187 


WWOCcoOo 
oO 
a 
Ww 
pay 
oo 
N 


1 
139-3699 
#64-1774 


#12 
#60-1659 


109-3187 


#134-3690 


#14-566 


#132-3640 
64-1774 


#124-3465 
#80-2264 


#118-5363 
60-1659 


120-3401 
132-3640 


#74-2052 


124-3465 
#80-2266 


#118-33°S 
464-1774 


' 
| 


j 
i 
' 
} 
; 
| 
} 
| 
i 
j 


 CNTUUA 
MACRO N 


MSWORD 


POINTE 
POP 


PRINTB 


AME 


136-3724 
54-1553 


109-5182 


94-2673 


CREATED ey MACRO ON 15=DEC-82 AT 12:55 
JRACRO Ce CROSS wath 17 


& 
#134-3688 


54-1554 
84-2493 
100-2838 


0 
100-2823 


105-3108 
60-1645 
116-3332 


122-3444 
118-3371 


120-3413 
#118-3363 


5 
134-3688 


64-1775 
86-2517 
100-2839 


86-2515 


100-2824 


PAGE 24 
CREF 


vo1 


#134-3689 


64-1783 
86-2518 
101-2946 


98-2796 


101-2901 


120-3402 
122-3444 


#122-3434 


#80-2261 


13 
134-3689 


72-1989 
90-2583 
101-2947 


80-2295 


101-2902 


122-3433 
124-3475 


#124-3465 


80-2261 


#134-3690 


72-1990 
90-2584 
101-2948 


72-1979 
90-2560 
101-2903 


124-3464 
126-3506 


#126-3496 


480-2264 
3 


132 
134-3690 
80-2307 


92-2621 
101-2949 


80-2234 
92-2599 
101-2904 


126-3495 


#134-3692 


80-2308 
92-2622 
101-2950 


80-2235 
92-2600 
101-2905 


a Ss 
84- 


134-368 
134-3692 


84-2490 
98-2800 
101-2951 


84-2427 
98-2774 
101-2906 


SEQ 114 


